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Fast String Searches 
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Binary Trees 
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The Potpourri Disk 



Helpl 



This HELPful utility gives you Inslant 
menu-driven access to lexl files 
at ttie toucfi of a key - while any 
program Is running I 



Loan Helper 



J 



How much Is that loan really going 
to coat you? Which Interest rate 
can you afford? With Loan Helper, 
the answers ore as close as your 
friendly 641 



Keyboard 



Learning how to ploy the piano? 
This handy educational program 
makes It easy and fun to learn the 
notes on the keybocfdH 



Flledump 



Examine your disk files FAST with 
thii machine language utility- 
Handles six formats, Including hex. 

decimal CBfVl and true ASCII 
WordPro and SpeedScript, 



Anagrams 



Anagrams lets you unscramble 
words for crossword puzzles and 
the like, The program uses a recur- 
sive ML lubroutlne for maximum 
ipeed and efficiency, 



Lite 



A FAST machine language version 
of mathematician John Horton 
Conway's classic simulation. Set 
up your own colonies' and watch 
them growl 



War Balloont 



Shoot down those evil Nazi War 
Balloons with your handy Acme 
CannonI Don't let them get awayt 



Von Ooogol 



At last I The mad philosopher, 
Helga von Gooool, brings her own 
brand of wisdom to the small 
screenl If this is 'Ai; then It Just ain't 

ncturall 



Newt 



Save the money you spend on 
those supermarket tabloids - thta 
program will generate equally 
convincing headline copy - for 
free! 



Wrd 



The ultimate \n easy-to-use data 
base programs, WRD lets you 

quickly and simply create, exam- 

Ir^ and edit )uat about any data, 
Comes with sample file. 



c 



ttuli 



Trivia fonatlcs and students alike 
will \^o>je fun with this program, 
which gives you multiple choice 
tests on material you have en 
tered with the WI?D program. 



AHAI Lander 



AHAI's great lunar lander program, 
Use either |oystlck or keyboard to 
compete agalnat yourself or up to 
8 other players, Watch out for 
apace minesi 



Bag the Ftvet 



A cute little arcade-style game; 
capture the elves In the bog a* 
quickly as you can - but don't get 
the good eltl 



J 



Blackjack 



The moat flexible blackjack simula- 
tion you'll find anywhere. Set up 
your favourite rule va riot Ions for 

doubling, surrendering and splll- 

tlng Jhedeck, 



Pile Compare 



J 



Which of those two flies you )ust 
erected is the most recent ver- 
sion? With this great utility you'll 
nnvMr be left wondering. 



Ohoul Dogi 



] 



Arcade maniacs look out! You'll 
need all your dexterity to handle 
this wicked loyslick-busterl Those 
mod dog- monsters from spoce 
are not for novlcesi 



Oclogoni 



Just the thing for you fVlensa types. 
Octagons Is a challenging puiz\G 
of the mind. Four levels of play, 
and a tough 'memory' variation 
for real ex pert si 



Backstreet! 



A nifty arcade game. 100% ma- 
chine language, that helps you 
learn the typewriter keyboard 
while you ployl Unlike ariy typing 
program you've leeni 



All the above programs, just $17.95 US, $19.98 Canadlaa No, not EACH of ttie 
above programs. ALL of the above programs, on a single disk, accessed 
independentiv or from a menu, wltti built-in menu-driven help and fast-loader. 

The ENTIRE POTPOURRI COLLECTION 

JUST $17.95 US!! 



See Order Card at Center 
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ABOUT THE COVER: Tlie tree was drawn using 
Deluxe Paint II, then simply stored on disk, packed in an 
envelope, and shipped to the imageSet Corporation in 
San Francisco, CA. It seems the Amiga will do just about 
anything, and colour separations on a micro is an appii^ 
cation that's about as cost and time effective as you can 
get. Using a program called "ColorSef, the IFF file 
containing our picture can be resized vertically or 
horizontally before the separations are generated. 
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Program Listings In Transactor 

All programs lisTed in Transactor will appear as ihey would on your screen in Upper/Lov^er case 
mode. To clarify two potential character mix-ups, zeroes will appear as 0' and the letter "o" will of 
course be in lower case. Secondly, the lower case L [V) is a straight line as opposed to the number 1 
which has an angled top- 

M^ny programs will contain reverse video characters that represent cursor movements, colours^ or 
tunclton keys. These will also be shown exactly as they would appear on your screen, but they're 
listed here for reference. Also remember: CTRL-q within quotes is identical to a Cursor Down, et al. 

Occasionally prc^rams will contain lines that show consecutive spaces. Often the number of spaces 
you Insert will not be critic-al lo correct operation of the program. When it is, the required number of 
spaces will be shown. For example: 



prfnl ' 



Production 

Attic Typesetting Ud- 

Printlng 

Printed in Canada by 
MacLean Hunter Printing 



flush right ' - would be shown as - pnnt '[1 spaces]flush right ' 



Cursor Characters For I^T / CBM / VIC / 64 



Down 
Up 

Ri^t - D 

Lefl - [Ul] 

RVS 

BVS Off - 



Inserl 
Dek-te - Q 
Clear Scm- B 
Home - Q 

STOP 



Colour Characters For VIC / 64 



Black - 
White - 
Red - 
Cyan - [Cyn) 
Purple- |Pur| 
GT««n - II 
Blue - B 
Vellow- [Yel] 



Orange - 
Broun 

Lt.Red - 

Grey I - 

Crey2 - 

LI. Grwn - 

LI. Blue - 

Grey 3 - [Gr3l 



Function Keys For VIC / 64 



Fl 
F2 

F3 
F4 



F5- 
F6- 
F7- 
F8- 



Please Note: Transactor's 
phone number is: (416) 764-5273 

Mondays, Wednesdays and Fridays ONLY 



CompuServe Accounts 

Contact us anytime on GO CBMPRG. GO CBMCOM, or EasyPlex at; 

KarlJ.H, Hildon 76703,4242 
CtirisZamara 76703.4245 
Nick Sullivan 76703,4353 
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Socially Unacceptable 



Have a look at ihe first item under "Industry News" in the New BRK 
section. It's a report ol a federal court case underway in New York 
state. Should judgement be found for the plaintiff, the defendant will 
be convicted of operating a pirate bulletin board system. More 
significant than that is the fact that his or her parents will be held 
responsible, 

I, for one, am rooting for the plaintiff. And If they should win? Send 
them on a walk down the gangplank if that's suitable (and I'm in a 
goodjuood right now). But since that doesn't happen in our "civilized 
age", the court will need to think of something else. Punishment of 
equal significance I would hope. Punishment that will make others 
think twice about supplying Ihe public at large with commercial 
software. And not just over the phone lines. . . ha[id-to-hand transfers 
too. We need a deterrent, A deterrent commensurate with the crime. 
One that deters the act because getting caught would be socially 
unacceptable- Those involved with this case have the opportunity to 
set a valuable precedent here. . . one that may prove to be the best 
protection yet against software piracy. 

Looking at software stealing over the years, it seems little else has 
proven very effective for very long. Early packages used a ROM 
installed in a spare socket, but it wasn't long t>efore the program 
stopped looking at the ROM, Same with the dongle. Then there was 
disk surface protection. Thick manuals. They all had one thing in 
common, though. Making a copy was something to be proud of. . , 
friends admired you, even if they weren't the recipient of the 
duplicate. The skill required was quite captivating. Like drinking and 
driving, that must change. 

Unfortunately, changes like that require money, . . a lot of money. 
Changing the public's attitude toward anything, at least on this 
continent, is possible, but it usually means relentless, expensive 
campaigns. Even then, there will always be those who choose to 
ignore the consequences. And since nobody is suffering physically 
when a program is passed along, a public campaign is unlikely. It 
looks like we'll have to settle for the embarrassment of a coEiviction 
that can be used publicly to equate software pirates with the common 
thief. 

But convictions are expensive. The revenue lost by one outfit to even 
a hundred downloads probably doesn't compare to the attorney's fee. 
Add up the total losses among all the manufacturers whose titles are 
available for capturing though, and the lost revenue becomes poten- 
tially staggering. The most popular pirate boards are those with Ihe 
lar^t selection. Naturally the plaintiff cannot collect on behalf of all 
the others, so it's up to the courts to assess the damage and determine 
suitable punishment. 

The software industry is easily in the billion dollar range per year. 
That money goes a lot farther than just over the counter and into the 
till. Every copy of any commercial program that isn't sold means the 
author loses, the manufacturer (our advertiser) loses, the retailer (who 



also sells our mag) loses, and the consumer pays higher prices. When 
these outfits can't sustain themselves any bnger, they go under. The 
employees lose, and the customers lose when they can no longer get 
support for Ihe products they bought. Who else? How about ttie 
essential services that every company needs? It's lime the authorities 
took notice. A rumour I heard recently suggests they are. Perhaps by 
next issue I'll have more on that. 

As far as this latest round goes, word is thai Ihe Doe family stands a 
good chance of losing their telephone service, h's within the court's 
power to order it and the deterrent value would have far more impact 
than even the most reasonable fine. I would hope the telephoiie 
company won't have a problem with that ekher. We pay lots of 
dineros to the phone people and it's my guess that many of the 
software companies that have gone under were paying more than us. 

It's also my contention that the phone company could do more to 
eliminate the pirate BBS, I don't expect them to go around snipping 
phone lines. Simply alerting the proper authorities would be enough 
on their part. It would be interesting employment for someone who 
not only enjoys BBSing but also wants to preserve it, and it could 
certainly be considered as revenue protection for the phone company. 
But many of you will disagree, I know. Because if Ma Bell gels 
involved, it's very possible that the BBS as we know it will become 
extinct, BBS operators who don't even lake donations will suddenly 
be paying to offer their service, which might have been completely on 
Ihe level and no more than a hobby. There isn't room here to describe 
how the phone people could do this job right, but I think it's worth 
looking at. 

The outcome of Weaver vs. Doe will be extremely important. I 
recently saw a BBS directory that offered the entire product line of one 
firm. The company is aware of the BBS and in the process of reacting. 
I find it most distasteful thai anyone could participate in something so 
evil, especially when they must know how much it can hurt an 
honest manufacturer trying to make an honest buck. And based on 
that, I do hope more pirate boards are caught, eliminated, and 
penalized- And perhaps one day enough Doe's will have lost their 
telephone lines to make policing the BBS operators unnecessary. 

It's not the solution, but it's a start. Hand-to-hand transfers are still the 
biggest problem. But if this angle can be successfully labeled "socially 
unacceptable", it's a step closer to changing the attitude towards 
piracy at all levels. I plan to do my part. You can do yours by 
boycotting the pirate BBS. Also, I'm sure manufacturers would be 
most interested in the whereabouts of boards offering their software. 
And / intend to make it possible for more firms to react. 

I should have more on the outcome of Weaver vs. Doe by next issue, 
[j^t's just hope it doesn't set a precedent that renders us powerless to 
do anything but watch our software industry die, , . and that includes 
the Amiga. 

Karl J.H. Hildon, Editor in Chief 
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The Transactor's Foolproof Program Entry Method 



VERIFIZER should be run before typing in any long program from rhe 
pages of The Transactor. It will let you check your work line by line as 
you enter tbe program, and catch frustrating typing errors. The VERIFI- 
ZER concept^ works by displaying a Iwo-letter code for each program 
line which you can check against the corresponding code in the 
program listing. 

There are five versions of VERIFIZER here; one for PET/CBMs. VIC or 
C64, Plus 4, C128, and B128. Enter the applicable program and RUN it. 
if you get a data or checksum error, re^cbeck the program and keep 
trying until all goes well. You should SAVE Ihe program, since you'll 
want to use it every time you enter one of our programs. Once you've 
RUN !be loader, remember lo enter NEW to purge BASIC text space. 
Then turn VERIFIZER on with: 

SYS 634 lo enable the PET/CBM version (off: SYS 637) 
SYSS26 to enable the C64/VIC version (off SYSSSI) 
SYS 3072,1 to enable Ihe CI 28 version (off: SYS 3072,0) 

Once VERIFIZER is on, every lime you press RETURN on a program 
line a two-letter report code will appear on the top left of the screen in 
reverse field. Note that these letters are in uppercase and will appear as 
graphics characters unless you are in upper/ lowercase mode (press 
shift/Commodore on C64/VIC). 

Note: If a report code is missing (or " — ") it means we've ediled Ihal 
line at the last minute which changes Ihe report code. However, this 
will only happen occasionally and usually only on REM statements. 

With VERIFIZER on, just enter the program from the magazine nor- 
mally, checking each report code after you press RETURN on a line. If 
the code doesn't match op with the letters printed in Ihe box beside Ihe 
listing, you can re-check and correct the line, then try again. If you 
wish, you can LIST a range of lines, then type RETURN over each in 
succession while checking the report codes as they appear Once the 
program has been properly entered, besuretolurn VERIFIZER off with 
the SYS indicated above before you do anything else. 

VERIFIZER will catch transposition errors like POKE 52381 ,0 instead 
of POKE 53281,0, However, VERIFIZER uses a 'Weighted checksum 
technique" that can be fooled if you try hard enough; transposing two 
sets of 4 characters will produce the same report code but this should 
never happen short of deliberately (verifizer could have been designed 
lo be more complex, but the report codes would need to be longer, and 
using it would be more trouble than checking code manually). VERIFI- 
ZER ignores spaces, so you may add or omit spaces from the listed 
program at will (providing you don't split up keywords!). Standard 
keyword abbreviations (like nE instead of next) will not affect the 
VERIFIZER report code. 

Technical info: VIC/C64 VERIFIZER resides in the casselle buffer, so 
if you're using a dalaselte be aware that tape operations can be 
dangerous to its health. As far as compatibility with other utilities goes, 
VERIFIZER shouldn't cause any problems since it works through the 
BASIC warm-start link and jumps to the original destination of the link 
after it's finished. When disabled, it restores the link to its original 
contents. 



CI 

CF 

LI 

HC 

OH 

GK 

OG 

JO 

AF 

IN 

ON 

IB 

CK 

E8 

HE 

01 

JB 

PA 

HE 

EL 

LA 

Kl 

EB 

DM 



KE 
JF 
LI 
BE 
DH 
GK 
FH 
KP 
AF 
IN 
EC 
EP 
OC 
WN 
MG 
DfVl 
CA 
NG 
OK 
AN 
GH 
JC 
EP 
fvlH 
BH 



PET/CBM VERIFIZER (BASIC 2.D or 4.0) 

10 rem* data loader for Verifizer 4.0" 't- 
is rem pet versiori 
20cs = 

30 lor i = 634 to 754 read a:poke i,a 
40cs = cs + a:nexti 

50: 

60 If csOl 5580 then print'***** data error •*••♦*: er^d 

70 rem sys 634 

80 end 

100: 

1000 data 76, 138, 

1010dala173, 164, 

1020 data145. 201, 



133, 144 
120, 165 
2, 165 
144, 169 
165,217 

58, 173 
253, 189 
230, 253 
236, 2 
229, 165 
0,128 
105, 193 

24, 101 



2. 120, 173, 163, 2, 
2,133,145, 88, 96, 
2,240, 16, 141, 164, 
1030 data 144, 141, 163, 2, 169, 165, 133, 
1040data 2,133,145, 88, 96, 85,228, 
1050data201, 13,208, 62,165,167,208, 
1060 data 254, 1,133,251, 162, 0, 134, 
1070 data 0, 2,168,201, 32,240, 15, 
10S0data165,253, 41, 3,133,254, 32, 
1090 data 198, 254, 16, 249, 232, 152, 208, 
1l00data25l, 41, 15, 24,105,193,141, 
1110data165,251. 74, 74, 74, 74, 24, 
1120 data 141. 1,128,108, 163, 2,152, 
1130data251, 133,251, 96 

VIC/C64 VERIFIZER 

10 rem* data loader for Verifizer* • 

1 5 rem vic/64 version 

20cs = 

30 for i = 828 to 958:read a:poke i,a 

40cs = cs + a:next i 

50: 

60 if GS014755 then print"***** data error ****-'; end 

70 rem sys 828 

80 end 

100: 

lOOOdata 76, 74, 3,165,251,141, 2, 

1010data252, 141, 3, 3, 96,173, 3, 

1020data 3,240, 17,133,252,173, 2, 

1030 data 251, 169, 99,141, 2, 3,169, 
1040data 3, 3, 96,173,254, 1,133, 

1050 data 0, 160, 0, 189, 0, 2,240, 
1060data 32,240, 15,133, 91,200,152, 
1070data133, 90, 32,183, 3,198, 90, 
1080 data 232, 208,229, 56, 32,240,255, 
1090dala 32.210,255,169, 18, 32,210, 
llOOdata 89, 41, 15, 24,105, 97, 32, 
1110dala165, 89, 74, 74, 74, 74, 24, 
1120 data 32,210,255,169,146, 32,210, 
1130 data 32,240,255,108,251, 0,165, 
1140datal01, 89, 133, 89, 96 



3, 165 

3,201 

3,133 

3,141 

89, 162 

22, 201 

41, 3 

16,249 

169, 19 

255,165 

210,255 

105, 97 

255, 24 

91, 24 



VIC/64 Double Verifizer Steven Watley, Sunnymead, CA 

When using VERIFIZER^ with some TVs, the upper lefl corner of the 
screen is cut off, hiding the verifizcr-dtsplayed codes, DOUBLE VERl- 
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FIZER solves that problem by showing the two-letter verifizer 
code on both the first and second row of the TV screen. Just run 
the below program once the regular Verifizer is activated. 



1 00 for ad = 679 to 720;read da:poke ad,da:next ad 

110sys679; print: print 

120 pnnfdouble verifizer activated" new 

ISOdata 120J69, 180, 141, 20. 3 

140data169, 2.141, 21, 3, 88 

150data96, 162, 0, 189, 0,216 

160 data 157, 40,216,232,224, 2 

170 data 208, 245, 162, 0,189, 

ISOdata 4,157, 40, 4,232.224 

190 data 2,208,245, 76, 49.234 



VERinZERTor Tape Users 



Tom Potts, Rowley, MA 



The following modifications to the Verifizer loader will allow VIC and 64 

owners with Datasettes lo use the Verifizer directly (without the loader). 
After running the new loader, you'll have a special copy of the Verifizer 
program which can be loaded from tape without disrupling the pro- 
gram in memory. Make the following additions and changes lo the VIC/ 
64 VERIFIZER loader: 



NB 


30 


AL 


60 


IB 


70 





60 





100 


OC 


1000 


fvIO 


1030 


EG 


1070 


BD 


2000 


KH 


2010 


GL 


2020 


DC 


2030 


P 


2040 



■*■■♦»#■ 



end 



3,165 

3, 141 
16,249 



for i = 850 to 980: read a: poke i,a 

if CS014821 then print'** **^data error* 

rem sys850 on, sys853 off 

delete line 

delete line 

data 76, 96, 3,165,251, 141, 2, 

data251, 169, 121. 141, 2, 3, 169, 

data 133, 90, 32,205, 3, 198, 90, 

a$ = Verifizer.sys850[space]" 

for i = 850 to 980 

a$ ^ a$ + chr$(peek[i)): next 
open 1,1,1,a$: close 1 
end 



Now RUN, pressing PLAY and RECORD when prompted to do so (use a 
rewound tape for easy future access). To use the special Verifizer that 
has just been created, first load the program you wish to verify or 
review into your computer from either tape or disii. Next insert the tape 
created above and be sure that it is rewound. Then enter in direct 
mode: OPENl :CL0SE1. Press PLAY when prompted by the computer, 
and wait while the special Verifizer loads into the tape buffer. Once 
loaded, the screen will show FOUND VERlFfZER,SYS850. To activate, 
enter SYS S50 (not the 828 as in the original program). To de-activale 
use SYS 853. 

If you are going to use tape to SAVE a program, you must de-activate 
(SYS 853) since VERIFIZER moves some of the internal pointers used 
during a SAVE operation. Attempting a SAVE without turning oft 
VERIFIZER first will usually result in a crash. If you wish to use 
VERIFIZER again after using the tape, you'll have to reload it with the 
0PEN1:CL0SEI commands. 

C128 VERIFIZER (40 column mode) 



1 000 rem • data loader for Verifizer c1 28" 

1010 rem * commodore c1 26 version 

1 020 rem ♦ use in 40 column mode only! 

1030 cs = 

1040 for j = 3072 to 3214: read x: pokej.x; ch = ch + x: next 

1050 if chOI 7860 then print "checksum error": stop 

1 060 print "sys 3072, 1 : rem lo enable" 

1 070 print "sys 3072,0: rem to disable" 

1080 end 

1090data208, 11,165,253,141, 2, 3,165 



MG 

HE 

LM 

JA 

El 

KJ 

DH 

JM 

KG 

EF 

CG 

EC 

AC 

JA 

CO 

BO 

PD 



1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 



data 254, 
data 201, 
data 3, 
data 169, 
data 133, 
data 2, 
data 3. 
data 22. 
data 152, 
data 198. 
data 32, 
data 169, 
data 15, 
data 250, 
data 32, 
data 24, 
data 252, 



141, 3, 

12,240, 

133,253, 

12,141, 

250,162, 

201, 48, 

232, 208, 

201. 32, 

41. 3, 

251, 16, 

240, 255, 

18, 32, 

24,105, 

74, 74, 

210, 255, 

32, 240, 

24,101, 



3, 96, 173, 
17, 133, 254, 



169, 
3, 
0, 
144, 
242, 
240, 
133, 



38, 

3, 

160, 

7, 

189, 

15, 

251, 



141, 

96, 

0. 

201, 

0. 

133. 

32. 

208. 

32. 



249, 232 
169, 19 
210,255, 165. 
193, 32,210. 

74, 74, 24. 
169, 146, 32. 
255, 106,253, 

250, 133,250, 



3. 3 
173, 2 

2. 3 

165, 22 

189, 

58, 176 

2,240 
252, 200 
135, 12 
229, 56 
210,255 
250, 41 
255,165 
105, 193 
210,255 

0,165 
96 



Introducing 

The Standard 
Transactor Program Generator 

If you type in programs from \he magazine, you miglit be able to save 
yourself some work with the program listed on tliis page. Since many 
programs are printed in ttie form of a BASIC "program generator'^ 
which creates a machine language program on disk, we have created a 
"standard generator" program that contains code common to all 
program generators. Just type this in once, and save all that typing for 
every other program generator yoii enter! 

Once the program is typed in (check the verifizer codes as usual when 
entering it), save it on a disk for future use. Whenever you type in a 
program generator (for example listings 5 and 6 from the article 
"fntcrfac ing two Commodore 64s" in this issue), the listing will refer to 
the standard generator Load the standard generator you've saved, then 
type the lines from the listing as shown. The resulting program will 
include the generator code and be ready to run. 

When you run this new generator, it will create a machine language 
program on disk that can be loaded {load"filename",8,l) and executed 
with a SYS command. The machine language program is described in 
the related article, and the generator is just an easy way for you to create 
it using the standard BASIC editor at your disposal. After the machine 
language file has been created, the generator is no longer needed. The 
standard generator, however, should be kept handy for all future 
Transactor type- in program generators. 

Thestandardgenerator listed here will appear in every issue from now 
on (when necessary) as a standard Transactor utility like Verifizer. 



MG 
EE 
LK 
KO 
EC 
FB 
DE 
C(V1 
CH 
HM 
NA 
KD 
HE 
JL 
MP 
MH 
IH 



100 rem transactor standard program generator 

1 10 n$ = "filename": rem name of program 

1 20 nd = 000: sa = 00000: ch = 00000 

130for i = 1 lo nd: read x 

140ch = ch-x: next 

150 if cf) then prfnfdata error": stop 

160 prinfdata ok, now creating file" 

1 70 restore 

180open1,8,1,"0:" + n$ 

190 hi = int(say256): lo = sa-256'hi 

200print#l,chr$(lo)chr$(hi); 

210for 1 = 1 tend: read x 

220print#1,chr$(x);:next 

230 close 1 

240 prinfprg tile ";n$;"' created. . ." 

250 printthis generator no longer needed." 

260: 
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Got an interesting programming lip, short routine, or on unknown bit of 

Commodore triuia? Send it in - if we use it in the Bits column, we'll credit you in 

tfte column and send you a free one-year's subscription to The Transactor 



Figure This One Outf 

Here's a challenge for aii who think they know the 64's innards 
pretty weli: examine Ihe following program: 

1 print"*";: poke NUM.0 

The Irick is to fill in ''NUM" wilh a value thai will cause the program 
to fill the entire screen with asterisks. Those who figure out the 
POKE win nothing but the satisfaction of having solved the puzzle. 
The first one who can figure out TWO solutions, however, gets a 
Transactor bits book as a prize. Just to save you from trying loo hard 
and possibly losing your sanity, it's only fair to tell you that we know 

of no second soliition. 



Sprite Memory Display 



Richard Lucas 
Los Angeles, CA 



This bit is not just a dazzler, it's also educational. The VIC-H chip in 
the Commodore 64 can use any section of memory to output a 
display, including page zero. This program combines this feature 
with sprites to create a dynamic bit-mapped display of the first two 
pages of memory. When run, it sets up eight sprites, then loops so 
thai you can see zero page activity during the execution of a BASIC 
program. Press any key to exit the proram. The sprites will remain 
on the screen. Notice how much less activity there is in immediate 
mode? See how the display changes as you move the cursor, 
evaluate an expression, list a program, etc. When you're finished, 
RUN 999 To restore your computer to normal. 



MP 

NE 

MO 

OE 

OF 

KH 

PK 

HK 

ON 

EP 

BG 

IM 

DM 



lOremzero pagedisplay rl 5/10/84 

60 poke 53280,0:poke 53281 ,0;prinf[md. grey]' 

1 00 vi = 53248 

IIOpokevi + 21,255 

120 poke vi + 23, 255 

130 poke vi + 29,255 

140 poke vi,30; poke vi + 1 ,65 

1 50 poke vi + 2,90: poke vi + 3,65 

160 poke vi + 4, 150: poke vi + 5,65 

1 70 poke vi + 6,21 0: poke vi + 7,65 

1 80 poke vi + 8,30: poke vi -f- 9,1 35 

190 poke vi + 10,90: poke vi + 1 1 ,135 

200 poke vi + 1 2. 1 50: poke vi + 1 3, 1 35 



AN 
DD 
DP 
BN 
FC 
OG 
OA 
CC 
IP 



210 pokevi + 14,210; poke vi + 15, 135 

220 for i=0 to 7: poke 2040 + ij: next 

230 for [ = to 7: poke vi + 39 + i,i + 7: next 

250 print"[clr]page zero" 

260 print'ie crsr down]page one[6 crsr down] 

270 get a$: if a$ = "then 270 

280 print '[2 crsr down]goto 999[2 crsr up]' 

290 end 

999 poke 53248 + 21 ,0: print '[clr]"; 



File Track and Sector 



Paul BLair 
Canberra, Australia 



Tliis routine came uut of desperation, when I wanted to find 
(quickly) where a certain program was stored on disk. 1 tried reading 
rhe directory, but that all takes lime. Too slow. 

Then I figured that the Disk Operating System does it all anyway 
when il opens a file, Hmmmmm. The tncl< is to find which internal 
buffer has been set when the OPF.M command is issued. DOS uses 
location $F9 in the disk drive to store the number of the buffer (0-5 
in the 15** drives) that will be used. Line 20 reads the buffer 
number. Knowing this, we have identified which of the "pairs" of 
track and sector values stored between $06 and $ 1 1 in the drive we 
want for the file in question. Buffer uses $06 and $07, buffer! uses 
$08 and $09, and so on. A quick fix in line 30, and we can gel the 
values we want. 



5 rem find track and sector of a file 

10z$ = chr$(0): inpufwhich file";nm$: open 15.8,15 

20open2,8,2,nm$: print#15,"m-r"chrS(249) 

chr$(0)chr$(l) 
30 get#1 5.a$: bf = 6 + 2*asc(a$ + z$) 
40 print#1 5;m-r";cfir$(bf)chr$(0)cfir$(2) 
50 gel#1 5,a$,b$; tr = asc(a$ + z$): sc = asc(b$ + 2$) 
60 close 2: close 1 5: printtrack";tr,"sector";sc 




File Load Address Changer 



Darryl Brimner 
Windsor,Ont 



In many instances it is desirable to have versions of relocatable data 
and programs that have different starting addresses. In other 
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situations it may be convenient to have the ability to change the 
starting addresses on disk. For instance Ultrafont stores its character 
sets at $7000, while Paperclip uses $0800. The following program 
gives the user the ability to change the load address of a program hie 
(PRG) on disk. Note the way the track and sector of the hie is 
obtained, (Not Ihe same way Paul Blair does it in the previous bit - 
CZ) 



8J 

ON 
FN 

E 



CM 

IL 
KJ 

PL 

HK 
JP 

LK 



1000 rem change load address ot file 
1010input"fifename>";fs$ 
1020print:input "new load address>";na 
1030open2,8,0,fs$:close2:open 15,8,15 
: print# 1 5;m- r "ich r$( 1 44) ;ch r$(2) 

1040get#15.s$:print#15,"m-r";chr$(147);chf$(2); 
'chr$(2):get#15,t$,b$ 

1050 open 2,8,2, ■r;print#15,"u1 2 0",asc(t$);asc(s$) 
1060 prinl#15,"b-p 2-;asc(b$):get#2.f$,t$,s$ 
1070print#15,-ul 2 0-;asc(t$);asc(s$) 

:prinl#15,'b-p2 2" 
1080 hi = int(na/256):lo = na-hi*256 
1090 print#2,chr$(lo);chr$(hi); 

:print#15,'u2 2 0":asc{t$);asc(s$) 
1100close2:close15 



File Stripper 



Eric Giguere, Waterloo, Ont. 



When submitting articles to the Transactor, the editors prefer to 
have a copy of the article on disk as well as on paper. But any word 
processor hies you use are bound to have embedded commands jei 
them-, commands which are useless for the Transactor's editorial 
purposes. It's best to send a simple file without any of these 
commands. Soto make things simpler, I wrote a small program that 
would take a Commodore 64 EasyScript file and automatically strip 
out the embedded commands. The program should be easily 
modihable to suit your own wordprocessor The lines specific to 
EasyScript are lines 120 to 160. Line 120 is special because it 
intercepts EasyScript command lines and sets a no-print flag (the 
flag is reset when the end-of-line is encountered). Apart from this, 
the program simply ignores characters that aren't valid alphanu- 
merics or punctuators. 



PG 
AE 
GJ 
BE 

BL 

BM 
GB 
AH 

MJ 

AJ 
LO 

CP 

CO 

JC 

II 



100 rem easyscript file stripper 

110 rem by eric giguere 

1 20 rem 

130 print '[CLR DWN] input hiename; ';: gosub 270 

:fi$ = teft$(in$,16) 
140 print "I DWN] output filename; ';; gosub 270 

:fo$ = left$(in$,16) 

1 50 fl = 0; print "[DWN] opening the files. . / 

160 open 1 5, 8. 15, "lO"; gosub 280: if e then 300 

170 open 2,8,2,-0:'-ffi$ + \s,r': gosub 280 
: if e then 300 

180 open 3,8,3,"0:' + fo$ + ",s,w"; gosub 280 

: if e then 300 
190get#2,a$: a = asc(a$ + chr$(0)): ok = st 
200 if a = 1 28 then get#2,a$ if a$ = "• ' then fl = 1 

: goto 250 
210iffl = 1 and a- 13 then fl = 0: goto 250 
220 if (a<32 and aOI 3) or a>21 8 then 250 
230 if a>95 and a<1 92 then 250 
240iffl = 0thenprinl#3,a$; 




250 if ok = then 190 

260 close 2: close 3: close 1 5; end 

270 open 1,0: input#1,in$: closel: print: return 

280 input#l 5,e,e$: if e<20 then e = 

290 return 

300 print "[DWN] disk error: ':e\e$: goto 240 



No- Question Mark Input 



Keath Mlllif^an 
Austin, '1"X 



Input from BASIC witfiout the question mark prompt can be accom- 
pjisfied by fooling BASIC into thinking it is receiving input from 
something other than Ihe keyboard. When the input routine is 
called, it checks location 19; if this location contains a zero, the 
routine will know the keyboard is beint^ used and will do a few extra 
things, such as printing the question mark. 



Try this: 



to poke 19,1: inpufprompf;a$: poke 19,0 



The system uses the same input routine in immediate mode as the 
one used by the INPUT statement, so the POKE 19.0 is needed to 
put things back to normal. 



Binary Sorting 
^*On the Fly" 



Don ElMs 
Winnipeg, Man i to ha 



Further to 'Sorting on the Fly' in the September 87 Bits and Pieces: 

Sorting data as it is entered can also be accomplished with a binary- 
sort algorithm instead of a sequential substitution as used in the 
illustration given. Although the sequential algorithm in Martin 
Hofheinz's program (lines 80-90) is indeed faster than a binary sort 
(or at least, than my binary sort) for small hsts, in my tests the 
binary sort takes over on speed somewhere in between sixty and 
seventy total - I mystically suppose the exact point would turn out to 
be 63. The relative speed difference curves rapidly apart from there, 
so that with a 200-member array, the sequential sort takes 30% 
longer than the binary. 

Even more important, the sequential sort is faster in a region where 
they are both virtually instantaneous; shortly past the threshold of 
noticeability of processing time - which I take to be about half a 
second - the binary sort is faster anyway. Finally, the binary sort has 
a much narrower range of variation. This means, (or example, that 
the worst-case situation in a 200- member array sort can take two 
or three times as long with a sequential algorithm - a noticeable 
difference indeed. To examine the difference, substitute the follow- 
ing lines 80-90 for those in the original program; then compare the 
time required to sort alphabetically (the new binary sort) with that 
required to sort by age (the sequential substitution). The effects will 
be most noticeable with arrays over 100. 



80h=(j-^)l2:Q = 

82 If (t$(j) < t$(a(h))) then h = int((h + g)/2); goto 86 

84g = h:h = int((h-+'jy2) 

86 if h-g > then 82 

88ti = h-(l$(j)>l$(a(h))):g = j--1 

90ifg> = hthena(g + 1) = a(g):g-g-1: goto 90 
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Handy Hexer 



Brian Mcintyre 
Vancouver, BC 



One of the neatest and easiest subroutines 1 have ever used for 
priming hex numbers is the following. 



10 b = int(a/256):gosub 30 

20 b = a-b'256:gosub 40:return 

30 pnnt ■$■; 

40x = jnt(b/16):gosub50:x = b-x*16 

50 prinlmid$('01 23456789abcdef.x + 1 ,1); 

60 return 



The routine^ may be entered at four places, line 10 for two byte 
numbers (0 to 65535), lines 30 and 40 for one byte numbers (0 to 
255), and line 50 for single digits (0 to 15), These examples show the 
different ways to use it: 




Inpul 



Output 



a = 491 52 


: gosublO 


SCOOO 


b = 234: 


gosub30 


SEA 


b = 234: 


gosub40 


EA 


x = 10: 


gosub50 


A 




1070data 99,249,158, 3,144, 10,133, 99 
1080datal04, 133, 98,254, 0, 4,176,232 
1090 data 104. 232, 136, 136, 16,221, 173, 141 
llOOdata 2,240, 11,162, 32,165,162,197 
1 1 10 data 1 62, 240, 252, 202, 208, 247, 76, 223 
1120data167, 1. 0, 10, 0,100, 0,232 
llSOdata 3, 16, 39 



CI 28 BITS 



Monitor Dump to 
Sequential File 



Philip Herold 
SeatUe.WA 



WhenexaminingROMoralongprogram with the 128's monitor, it's 
hard to keep track of where you are, especially when you're on level 
six of a series of nested subroutines. One solution is to dump the 
whole thing lo a printer. Better, in my opinion, is to create a 
sequential file of the monitor dump, load it Inio a word processor, 
take advantage of its search capabilities and comment the file to 
your heart's content. 

Here's how lo create such a sequential file, dumping the first two 
pages of BASIC ROM as an example. Type in direct mode: 



There is a good deal of choice as to how to use this routine, and any 
lines above the line called are unnecessary. Note that this routine 
leaves the next print position immediately after the number that 
was printed. 



open1,8,2,"filename,s,w": cmdS 

monitor 

d f4000 f4200 



When the cursor reappears, type 



Irticro trace 



Peter Lottrup 
Buenos Aires, Argentina 



print#8; closeS 



Here is a short trace utility which will display the current BASIC line 
number in reverse lieid on the top left corner of the screen. It is 
placed in the cassette buffer, and activated with SYS 828. It can be 
disabled with SYS 831. 



. . .and that's all there is to it. The same technique works on the 64, 
using a monitor program (accessed with the appropriate SYS com- 
mand). 



The program behw is a modified version of Mr Lottrup 's originof 
mlcrotrace, with an added feature: you con slow down your BASIC 
program white it is being traced by holding the CTRL key down. 
When CTRL is released, the program continues at full speed. This 
makes microtrace euen more useful for debugging tricky programs. 
-CZ 



50 line, 80 column 
display on tlie C128 



Darrel Grainger 

Toronto^ Ont. 



DO 

NB 

LC 

BE 

GK 

BO 

EL 

IL 

KF 

LP 

CB 

JJ 

FO 

NM 

AD 

MH 



10 print* microlrace 

20 prinfsys 628 to trace program lines 

30 print" hold Ctrl key to slow trace down 

40 prinfsys 831 to turn microtrace off 

50: 

60 fori = 828 to 934; read a 

70 poke i.a: ch=ch+a: next] 

80 if chOl 1716 then print'data error!' 

90 end 

1000 data 76, 66, 3, 76, 77, 3,169, 88 

lOIOdalaMI, 8, 3, 169, 3, 141, 9, 3 
1020dala 96,169,228,141, 8, 3,169,167 

1030data141, 9. 3, 96,166, 58,134, 99 

1040 data 232, 240, 59,165, 57,133, 98,162 

1050data 0, 160, 6. 169, 176. 157, 0, 4 

1060data 56,165, 98,249,157. 3, 72,165 



The CI 28 80 column screen is capable of displaying 50 rows of text. 
The BASIC screen editor routines will only use 25 rows, but you can 
lake advantage of the 50 line display in your own programs. 

This program will alter the 8563 VDC chip to display 50 rows. You 
won't be able to use all 50 lines when programming, but this gives 
you an idea of what the display looks like and shows you what 
values to use for your programs. 



CA 

HM 

FJ 

10 

MP 



Oremsyswhte,val,reg 

1 : 

2 rem write = routine to write to 80 column registers 

3 rem val ^ value being written to register 

4 rem reg = reg to which the value is being written 
5: 

;rem 126 horizontal total 

:rem 102 horizontal sync position 

rem 73 bit 7-4 vertical sync width 

rem 32 vertical lotal 

rem 25 vertical displayed 



100 sys 52684,128,0 
llOsys 52684,104, 2 
120 sys 52684,137,3 
1 30 sys 52684,64 ,4 
140sys52684.50 ,6 
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GM 

Gl 

FA 



1 50 sys 52684,57 ,7 :rem29 vertical sync position 
160 sys 52684,3 ,8 ;remO interlace mode 
170 sys 526847 ,25 ;rem 71 bit 6 disable attributes 
180 sys 52684.16 ,26 :rem 240 back/foreground colors 



(The value immediately after the REM statement on each line is the 
original value for each register) 

Line 100 - This modifies the horizontal total to make the display 
more readable. 

Line 11 and line 1 50 - When you alter the display, the screen will 
move around. These registers will help to centre things on the 
screen (you could use the horizontal /vertical positioning on the 
monitor but Hiat would mess up your 40 column piclure}. 

Line 1 20 - This helps clear up flicker. The high nybble is doubled as 
the Programmer's Reference Guide suggests. 

Line 130 and 140 -This sets the number of displayed lines to twice 
as many as usual. Line 130 is the number of lines on the screen 
including the space in the lop and bottom borders. Line 140 is just 
the lines displayed. 

Line 160 - This turns on interlace mode, necessary for a 50 line 
display. 

Line 1 70 - 1 disabled attributes because the boltom 25 lines, which I 
could not access from the BASIC screen editor, were flashing 
annoyingly. This has the side effect, among other things, of not 
allowing upper/ lowercase characters, (f you wish to use the upper/ 
lowercase character set, delete lines 170 and 180 and set the 
character colour in the usual way- 
Line 1 80 - Because there are no attributes, all screen colour defaults 
to the value in register 26. The value 16 used here produces grey 
text on a black background. 

This is the best 50 line display I could produce. If someone comes up 
with a better set of values to reduce flicker, I would appreciate 
hearing about it. 



Windows on the 128 



Ian Adam 

Vancouver, BC 



If you've done much programming on the 128, you know how 
useful the windows can be in setting up different areas of the screen 
for different purposes. You also know that windows can be created 
by either ESCape sequences or the WINDOW command, and are 
cancelled by printing HOME twice. 

Well, here's a twist- If you open two windows in succession without 
PRINTing in the first, t>o!h windows are cancelled and you get the 
full screen! Something like this: 

10 window 20,5,35,8 

20 rem. . in a loop waiting for an event 

30 window 10.10,35,15 

40prinfcursof should be at row 10 column 10' 

Whenever you open a window, the cursor is automatically placed in 
the home position. It seems that, when you open a second, the 
screen editor treats this as two successive HOMEs, and dutifully 
cancels your window. This could happen inadvertently in a pro- 
gram, with unfortunate results. 



Let's say you use several windows on the screen - one for a title, one 
for input, one for status, etc. You activate the input window and 
leave the cursor there to await a message from the user Before that 
is received, however, some other event changes the status. Your 
program opens the status window - or so it thinks! instead, all 
windows are cancelled and your status message gets dumped all 
over your nicely centred title- 
How to avoid the problem? Number one: always print something 
when you open a window, even if it's just a "cursor up". Number 
two; put a ",1" after the WINDOW command, to clear the window. 
rJumber three; If you can manage it, print the less-convenient 
escape codes to define your window. It's not hard to deal with the 
problem, once you know it exists. 
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The Other Drag Bar 



When you ve sized a window so narrow that there's no drag bar left 
to grab it by, there's still a way to drag the window without resizing it 
again! Look to the right of the window-to-front gadget; a tew pixels 
of title bar overhang beyond the right of the gadget! This is actually a 
liny strip of drag-bar, two pixels wide. Point right at the line that 
forms the right side of the front gadget, and you can grab the 
window and drag it around from there- 



Aw rite File Transfers 



Glenn Wiorek, Chicago, IL 



There is an undocumented switch in Awrite, the program that 
transfers files from the MS-DOS side of a bridge-card equipped 
Amiga 2000 to the Amiga side. Awrite is found on the GW Basic disk 
that comes with the A2088 Bridgeboard. Awrite has problems 
transferring executable files, transferring only the first 256 to 512 
bytes. 

In order to transfer any file properly, you have to use the undocu- 
mented /B switch to put Awrite into binary transfer mode. The 
format for this command (in an MS-DOS window) is; 

AWRITE [drive:] [path]fllename drive:[path]filename /B 



Example: 



AWRITE a:\bin\test.arc DFO:test.arG/B 



The above command would transfer the file "test.arc" from the MS- 
DOS A; drive in the "bin" directory to the root directory of Amiga 
floppy drive 0. 



Amiga SOO Serial 
and Parallel PorU 



Richard Lucas 
Los Angeles, CA 



Pages A-4 and A-5 of the 'Introduction to the Commodore Amiga 
500" manual show pictures of the Amiga serial and parallel ports, 
respectively. The manual doesn't say this, but the pictures show (he 
cable connectors, not the ports on the Amiga 500. In addition, there 
is a warning on page A-3 that implies that you need a special cable 
to conned the Amiga 500 to your printer through the parallel port. 

(This is true forthe Amiga lOOO-CZ) Av.\ua\\y,]h^ve\ound [hat my 
standard IBM parallel printer cable (DB25 male to Centronics 36 
male, with all DB-25 pins present except 20 through 25) will work 
just fine with printers that have standard Centronics inputs. 
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A question on copyright: First I'd likt? lo Ihank you tor publish- 
ing my reply letter !o the Jordan Rolltop Stand {Transactor, Volume 
6, Issue 6). You wished me success then so I'm reporting that I did 
get three requests tor further information and one subsequent order 
making my year ending December 31 , 1 986 register a net profit of 
$15.90. Not really' enough to allow me to quit my job, but the 
experience was invaluable: when I do launch my business, I will be 
better prepared to handle the type of requests likely to come in. (If I 
can comprehend the requests of hackers who aren't really into 
drills, saws, etc., then I should fare well with the cabinetmakers of 
the world.) Thanks dmn. 



Second is a question concerning copyright. (Oh no, not again!) I 
recently did some extensive reworking on Commodore's "EasyMail 
64" for a local businessman, speeding disk access, adding features, 
and even cutting program size by about 40 per cent. My question is 
this: can I legally offer this as an 'upgrade' product or would I get 
nailed tor not "reading the program into memory of a computer 
solely for the purpose of executing the program. . ."? I was thinking 
of a deal where a legal owner of EasyMail could send me the disk 
and I would copy the new program to it for a couple of dollars, but I 
try to ''toe the line" in regard to copyright and don't need any 
trouble either. As a sidelight on this, one of the things I did to 
EasyMail was to use an ML son routine for the listing routines. 
Unfortunately, the routine I used came from an old issue of Com- 
pule[ and, being the type they are, I have to rewrite it myself so I 
don't violate their copyright. Any comments on this would be 
appreciated. 



Third is a comment on the circulation situation that received 
attention in the letters column for a while. Don't get too upset when 
peoplecomplain aboutyourmodestcirculation. The T. will never be 
as widely circulated as Compute!, their Gazette, or the others until 
you quit giving readers material to chew on (and digest and grow up 
to be big, strong programmers) and start spoon-feeding us ready- 
made programs in a format that teaches (and requires) nothing but 
some time spent typing them in. Every month I get more disap- 



pointed with Compute! Publications and long for more of the T 
Keep up the good work. 

Matthew R. Strange. Mansfield, Pennsylvania 

Glad we could help you establish such a lucrative business. Mat- 
thew. Next time you 're passing by in the Rolls, why not stop in at the 
office and treat us lo a few of those fat Cuban cigars you Ve washing 
your martinis down with nowadays? 

We can't see that you fiave a copyright problem with Easymail - 
what people do with tfieir bought-and-paid-for commercial pro- 
grams is their own affair; as far as we ktmw it is perfectly legal to sell 
an oftermarket upgrade. Several upgrade packages for Speedscripl 
are commercially available, with no argument from COMPUTE! 
who, as you note in your letter, are not generally shy about 
proclaiming the sanctity of their copyrights. 

As for circulation - you're right, ours will probably nether go into 
orbit. We'd stilt like to reach the stratosphere, though, and we're 
hoping to see a lot of improoemenl in that area now what we're 
getting back into retail distribution. 



Transformer Modification for fV1C68010 Upgraded Amiga: 

Back in the September 1 987 issue of Transactor (Volume 8. Issue 2) 
my article called ''Upgrading the Amiga 1000 to 32 bits" was 
published. It told how to replace your MC68000 with an MC680IO 
and also how to modify your disks so that 99% of your programs 
would run with the MC68010. 

Then, in the November issue, Ian Robertson wrote to ask how to 
use DeciGel without modifying every one of his disks (Letters, 
Volume 8, Issue 3), The answer that followed was correct, and since 
i switched to an MC68010 I have only found a few (less than 10) 
games that require the DeciGel patch to run. All others (about 80) 
load and run fine with no changes. Ifind that older VI T games are 
the common problem programs. Almost all of the better software 
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houses have written iheir newer programs and updates (VL2 
compatibility} with the MC68010 in mind, I have found two pro- 
grams, however, that will not run: "Hacker" which, due to the form 
of copy protection used does not have a start-up sequence that can 
be modified, sorry; and "Transformer" from Commodore for which 
a fix follows, 

[ am not a user of Transformer and offer this fix/patch for those who 
feel they cannot upgrade because of losing Transformer. No longer 
need they suffer! If you were to install DeciGel on your Transformer 
disk and make the proper call to activate DeciGel when booting 
your machine, it would be lost as your Amiga resets itself when 
starting Transformer. So what do you do? A simple fix/patch to your 
Transformer program will solve the problem. This requires the use 
of a binary file editor - sorry, but Commodore did not supply one 
with your Amiga. Like DeciGel itself, the best place to obtain a file 
editor is the public domain. I prefer NewZap 3.0 available on Fish 
disk "58. The instructions that follow assume you are familiar with 
NewZap. 

Make a backup copy of your Transformer disk and put the original 
back in its box. Put the copy in drive 'x' and start NewZap with the 
command: 

1>newzapdfx:atl 

Press return. Using the search function of NewZap (Amiga-z and 
Amiga-c) change all occurrences of these hex strings: 



to; 



40c2, 40c4, 40c6, 40c7 
42c2. 42c4,42c6, 42c7 



This means that 40c2 will become '12c2. 40c4 becomes 42c4, etc. 
There are quite a few (1 mean a lot!) of changes to be made, so relax, 
take your time and remember to save each disk block as you go. 
What you have for all this work is a copy of Transformer that will 
work with an MC68010. Please note that after Transformer is 
modified in this fashion, it will no! run on an MC68000 machine. 
{That s why we made a copy, didn't we?) 

While we are on the subject of Transformer, there is a patch 
available to make it run under AmigaDOS VI .2 in the public domain 
called "Transl2", It is not available on any of the Fish or Amicus 
disks, but should be available on services like People Link and 
Delphi, or check your local BBS or users' group for a copy. It is easy 
to use -just copy Transl2 toyourcopy of Transformer, CD to your 
Transformer disk and run Transl2. This will patch your Trans- 
former for use under VI. 2- 

Daniel Schein. West Lawn, Pennsylvania 



C-64 Keyboard Matrix: All is not well in the C-64 keyboard 
matrix. The program below visually represents which keys are 
being pressed. Type it in and save it before running; it turns off the 
normal keyscan. You can see the problem by pressing the Stop Key, 
Commodore Key, Q Key and Space Bar at the same time and then, 
with these held down, pressing the Fl key. The Cursor Down, F5 
and F3 keys will come on as if they are being pressed. 1 stumbled 
across this on the way to a split keyboard routine. So far I've worked 



around it with a routine that uses the Right Shift and the Cursor 
Control keys for one player, with the Left Arrow and the One and 
Two keys for the other player. These keys are in mutually exclusive 
columns as seen by Data Port B, but this method limits the number 
of exclusive key closers to eight, makes hnger placement awkward 
and an accidental key press can throw the whole scheme off. Any 
suggestions? 

10 c = 0;s = 7:a = 56320:b = a4-1:cl = 55296 

20 dim m(7y},x(7),y(7): r$-chr${18): n$ = chr${146) 

30 for i = , to s: x(i) = 2ti; y(i) = 255-x{i) 

40 for j = , to s: m{ij) = (s-i)*40 -i- (s-j) 

50 nextjpi 

60 poke 53280,.: poke 53281,.: poke 646,1: poke 56333.127 
70printchr$[147); 

80 print r$" q 2 ^1 "nS" stp q com spc 2 ctl -^ V 

90 print r$Vt= ;*£"n$spc(12)1sh hm' / 

100 print r$", @;. -Ip-H" 

110 print r$'nokmOji9" 

120 print r$"vuhb8gy7" 

130 print r$"xttc6dr5" 

140 print r$"esz4aw3"n$- rsh' 

1 50 print r$"[8 spcs]"n$" crd f5 f3 fl f7 err rtn del" 

1 60 for i = . to s; poke a,y(i); for j = , to s 

170c=1:if(peek{b)andx(i)) = .tfienc = 2 

180 pokem(iJ),c: nextj,i: goto 160 

Owings Saffeli. Eugene, Oregon 

It is true that multiple slmultoneous key-presses will often generoie 
spurious keycodes. This isn 't really a bug, ihough -just a side effect 
of the inoy the hardware is set up to map 64 keys onto 8 switches. 
For two-person use of the keyboard, it may be that the compromise 
solution you Ve already arrived at is about as good as you can do. 
Anyone else have ideas on this? 



Clock Setting: This year 1 had an interface built for me which 
operates some lights in my home as well as the automatic sprinkling 
system for my yard and greenhouse. 1 wrote a program to run the 
interface in Basic on the 1 28 and it works just fine. 

The problem 1 have is that, if there is a power cut, the program boots 
from disk but, of course, does not re-set the time of day. Is there a 
digital clock on the market that the 128 can read externally and 
then use to reset either of the two clocks resident in the computer? If 
not, can the 128 read an external clock and is there anyone who 
could provide me with the necessary hardware and a program to 
read the clock? 

David Kuhn, Nanaimo, British Columbia 

Well. weYe sure that there is some way to interface an external 
clock to the i 28. but we don 't remember eoer having seen it done, 
commercially or otherwise. Readers? 



Transactor's Amiga Coverage: I see that you are starting to get 
flak about coverage of the Amiga. I vote with you. Face it, the 6^ 
with its 8K operating system and J^K Basic interpreter, has been 



The Transactor 



11 



March 19$8: VOhinw 8, l»ue 05 



pretty thoroughly dissected. MuHiple editions of the commented 
ROMs are available, and even the Transactor's expertise is reflected 
increasingly in clever ways to use what is generally known, rather 
than mysteries revealed (though you still reveal more mysteries 
than anyone else). The Amiga is new, it's mysterious, and it's 
Commodore. I, too^ cannot afford an Amiga, yet the idea that its 
coverage is inappropriate for the T. is preposterous. 

Good luck in your endeavours, the Transactor is tops. 

TabTrepagnier, Kenner, Los Angeles 

Well, thank^ for the support, Tab. but as you now know we are no 
longer goin^ to cover Amiga in this magazine. Still, youVe right, 
we're running ou( of mysteries. Because of thai, weV probably be 
adjusting our format slightly in issues to come. . . along with the 
utilities and technical applications, we 'II be adding more theoretical 
material (like the binary trees article in this issue) and reviews of 
selected products. Also - for those of you who haoe been clamour- 
ing for it - it looks as though we're finally going to get around to 
running a machine language subroutines column starling next 
issue. Anything else you 'd like to see? Let us know. 



'*My heart leaps up when I can hail^ 
My Transactor in the mail. , , ": 

1. Volume 7, Issue 5, page 10: "ScreenSave'. Re; line 1200 - my 
verifizer says it equals HB. Your printed line says CK, I feel the error 
is in line 1200 as the program doesn't run - please adjudicate, 

2. Volume 8, Issue 1, page 36: "Complex Numbers . . ," It seems 
that I need Vol 5 Issue 6 "new wedge', which I don't have. Is it 
possible to purchase a back copy from you, or can I get a photocopy 
from you or from another reader? 

3. Regarding the Verifizer Codes in the left-hand column, could they 
be moved to the right-hand edge? It would be much more conven- 
ient. 

Ernest Dorfman, Brooklyn, New York 

Sorry. Ernest, but we still get CK for that Verifizer code. Is it possible 
you have a pair of transposed numbers in that DATA line, or 
possibly a period substituted for a comma? For other possibilities, 
take a look at the section on page 14 titled "Common by Compari- 
son". 

New Wedge is not needed for the complex numbers program. It 
was referenced in the article as the place where an explanation of 
the wedge technique used in the program could be found. 

The idea of running the verifizer codes down the right hand edge of 
the listings is a good one. . , odd thai it never occurred to us. We 'If 
experiment with it between now and next issue and. if the typeset- 
ting works out. you should see some examples of it then. Thanksl 



accessing curly brackets with Speedscript: Assuming his terminal 
program will let him upload a file in true ASCII without translation, 
Speedscript has several features that will provide him with the curly 
brackets in a sequential file. First, he can put a formatting command 
of ^'Ctrl 3, a'' as the first character of the hie. This will translate 
everything into true ASCII, Then define any two uppercase charac- 
ters as the ASCII codes for the curly brackets, I used shifted " + ": 
"Ctrl 3, Shift -n = 1 23'\ 1 23 being the decimal of $78, Then do the 
same for 125 or $7D. I used Shifted "-". These control characters 
will show on the screen as reversed characters. Then whenever he 
needs the curly brackets, he just needs to hit "Ctrl 3, shift +'' for left 
{ and "Ctrl 3, shift -^ for right}, 

Speedscript then allows a file to be saved as a SEQ file in PETSCIl (or 
ASCII if the above command is included) by hitting ''Shift-Ctrl-P" 
and responding "D'' to ''Print lo Disk". The reversed control 
characters are not saved since they are Print Formal commands. 
Then he can just adjust his terminal program to upload with no 
translation and the correct ASCII codes will be sent. I checked this 
out by examining such a file I had printed to disk and sure enough, it 
contained no codes above $7F, and the curly brackets appeared as 
$7B and $7D. 

1 printed this letter on my Star NX-10 by locking my interface into 
Transparent mode and printing it as an ASCII file, rather than have 
the interface transiale. 

James Greek, New York, New York 

And from what we can see, it worked great! 



The Continuing BIT/,BYTE Saga: Jack Lothian's un-assembler 
(Transactor, Volume 6, Issue 4} is a fine program that has evoked 
several letters during the past year. I think this is primarily because 
the program is quite useful lo many readers and is well structured 
and commented, enabling readers easily to understand its function- 
ing, I like other readers have some comments and ideas to offer. 

.lohn Menke (Letters, Volume 6, Issue 5) pointed out the problem of 
disassembling the sequence $2C;$00;.$A9 as BIT $O0A9 - the 
Commodore Assembler will re-assemble this as BIT $A9, changing 
the BIT for $2C to $24, dropping the byte $00 completely and 
offsethng all the code that follows by one byte. Thomas Gurley 
(Letters, Volume 7, Issue 5) pointed out that this wasn't unique to 
the BIT instruction but was due to the absolute addressing mode. He 
observed that, if the addressing mode was one of the absolute 
modes (including absolute.X and absolute,Y) and the operand was 
less than 256, the assembler would change the addressing mode to 
the corresponding zero page mode and drop the byte $00, His 
suggested program changes to correct this problem caused the 
sequence $4C;$73,$00 to be disassembled as .BYTE 76;. BYTE 
115;BYTE 0., ralher than JMP $0073. The problem is that not all 
instructions wiht absolute addressing modes also have the corres- 
ponding zero page addressing mode. If they do, the zero page mode 
op code is 8 less than the absolute mode op code. 



Accessing Curly Brackets with Speedscript: In response to The following changes to the program as it originally appeared in 
the letter from John Francis (Letters, Volume 8, Issue 2) concerning Transactor should correct this problem. 



The Transactor 



12 



March 1988: Volume 6, Issue 05 



1380pp$ = " "ladS^' ■:ift = 0thenl405 
1 410 if n>0 and n<1 4 then pp$ = pp$ + n$ + " " 
1435ifn = 14then1380 
T 730 q1 = q: gosub 2090: ad = q; gosub 2090 
:ad = ad + q*mh: p=p + 2;de = ad 

1731 hn =3; gosub 21 80 

1 732 if ad<256 and mn$(q 1 ) = mn$(q 1 -8) then n = 1 4: return 
1 792 If ad<256 and mn${q1) = mn$(q1 -8) then n = 14: return 
1852 if ad<256 and mn$(qT) = mn$(q1'8) then n = 14: return 
201 5 rem convert absolute address less than 256 

to .byte Instructions 
2020 p$ = ad$ + ".byte " + str${op) + ":. byte ' + str${ad) 

+ ":,byteO ;*** was ■ + n$ + " •#•" 
2022 n = 0: gosub 21 50: p = p+1: return 

These and otiier letters hav? suggested the preference for the user to 
determine whether he or she wanted the BIT ($2C) op code to be 
disassembled as BIT or ,BYTE and some have suggested the proper 
method of implementing this option. It seems to me that this 
decision should be based on the context in which this instruction is 
found. Programmers use the $2C opcode for two distinct purposes. 
The first is its documented function of setting or clearing the N and Z 
flags. When the programmer uses the $2C op code for this purpose 
the preferable method is to disassemble $2C with the BIT op code. 

The other use is the quasi-documented function of skipping 2 bytes 
when entered from the top and creating a side entry point immedi- 
ately below the $2C byte, where a register is commonly set using 
the immediate addressing mode. When used for this purpose, it is 
preferable to disassemble S2C with the .BYTE pseudo op so that the 
side entry point is clearly shown. This also permits the disassembler 
to create a valid label for the entry point. Since the op code that 
immediately follows $2C is commonly for the immediate addressing 
mode, this assumption can be used as the criterion for determining 
whether to disassemble using either the .BYTE or BIT op codes, 
{Though this isn't a perfect criterion, it is an easily implemented 
"rule of thumb" that is valid probably 75 % of the time at least,) 

The suggested changes below should implement this change: 

DELETE LINES 310 THRU 360 

2090 it aa$<>" then a$ = aa$:aa$ - ":goto 2094 

2092get#1,a$ 

2094 q = asc(a$ + n1 $);return 

2T 20 p = p + 1 :n$ = mn$(q);n = md{q) 

2122 if q<>44ttien 2126 

2124gel#1,aa$:q1=asc(aa$ + n1$);ifmd(q1) = 2 

tfienn = 0:n$=\bir 
2126 return 

My thanks go to Transactor for publishing many fine programs like 
the un-assembler and the letters from readers that they provoke. 

Bill Taylor, Cupertino, California 



ML EPROIW Burner: Being an avid reader of Transactor, I know 
how technically minded the staff and readers are. This is why 1 have 
decided to ask you for advice concerning the following problem. 



would like to write an ML program and burn it on an EPROM, which 
would then go in a cartridge. I have the technical and practical 
abilities to do it, I just don't know how to go about it. I've read 
different books on the subject of cartridges, but they are all very 
cryptic- 1 know that upon power-up the computer checks for a 
cartridge by comparing addresses $^{)Q4 to $8008 to the word 
'CBM80'. If It matches, program control is transferred to the car- 
tridge through the vector at $8000. However, the PROM 1 removed 
from a cartridge {Visible Solar System) doesn't have ^CBMSO' at 
$8004. and the vector at $8000 jumps into the Basic input buffer, 
Also, all JMPs and JSRs have their target addresses start with $E (as 
in $EI91) instead of $8. So basically this is what I want to know: 
What PROMs are generally used in cartridges? Why can't I find 
'CBM80' at $8004? Am I reading it wrong? Should I just give up and 
buy a commercial cartridge-maker? 

I also noticed extra room for another microcircuit in the cartridge. 
What could it be used for? And finally, are there any books 
explaining the operation of the Commodore 64 in detail? I would 
greatly appreciate this letter being published; even if you can't give 
me the answer, maybe another reader can help me out. I can be 
reached a! the address below. 

Patrick G. Demets, Box 1936. Grand Centre, Alberta TOA ITO 

Unforlunately, we do not hooe access to the Visible Soiar System 
cartridge - pity, because we 'd be interested in checfiing it out. We 
wonder if the cartridge is set up to use the Vtlimax memory layout or 
one of the other less-used layouts charted in the Programmers' 
Reference Guide. The Ultimax layout does haoe cartridge ROM at 
$£000. The VBM801D is obviously not needed in this case because 
the hardware reset vector is within the address range of the 
cartridge itself. Any of you readers have more definite information 
on this? 

On the question of books, there are lots thai cover the 64 from a 
software viewpoint, but we assume that's not what you mean. 
Hardware information is a lot harder to find outside the Program- 
mers' Reference Guide. Again - anyone haoe recommendations? 



!EEE Interfaces for the C-64/128: You recently had a letter 
inquiring about \EEE interfaces for the C-64/128. I have used a 
couple of them and would like to give you my impressions of them. 

First the MSD IEEE interface was mentioned. Well, it doesn't even 
make a very good door stop, unfortunately. It does work with plain 
vanilla Basic programs and very little else. Also there was a program 
that MSD gave out that did improve its performance. Even then it 
had a couple of big limitations and I quickly gave up trying to use 
that interface. 

On to more useful interfaces for use with the C-64. 1 think it would 
be hard to find a better interface than the BusCard with the Basic 4-0 
extensions, the ML monitor and the printer port in it. It also seems to 
be compatible with a lot of commercial software, though of course 
not all. 

However, the BusCard does not work on the C- 1 28 in 1 28 mode. For 
use with the C-l 28 1 recommend the Quicksilver 1 28, 1 am currently 
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using that interface on my C-128, However, since Skyles replaces 
Ihe Kernal ROM in the 128 with one of their own design, it is not 
compatible with CP/M. Skyles does sell a ROM switch board that 
you can install in your C-128 and have both ROMS available to you, 
but if you switch your original Kernal ROM back in, you still have to 
remove the Quicksilver cartridge in order to boot CP/M, As to drive 
compatibility with CP/M, 1 don't think that the higher capacity 
drives (8050, 8250, SFDIOOl) are compatible with Commodore's 
implementation of CP/M on the C-128. 

One other thing: the SFDIOOl working through the Quicksilver is 
asquickasit not quicker than the 1571. From my observations and 
the comments of other users, Ihe data transfers at about the same 
speed. But fhe internal operations of the SFDIOOl can run circles 
around the 1571. 

[ hope this helps your readers and provides a little background on 
these interfaces. I have used my IEEE interfaces with a MSD and a 
SFDIOOl disk drive and am quite satisfied with my current set-up 
(C-i28, 1571, MSD dual, and SFDIOOl). 

Lyie Giese, Woodstock, Illinois 



TransBIoopers 



Random Number Generation in ML, May 1987: Volume 
7, Issue 6, pg. 28 

Nothing wrong with program here. . . just a couple of random 
errors that crept into the text. Charlie KItiepfel of Bloomfield, NJ, 
writes: 

. . .The article contains an inconsistency which mokes me dis- 
trust the Dolues shown in the table of Figure 2 (page 28). The 
diagram shows taps from 5 and 2, wfiile the table shows taps 
from 5 and I. Trying both out, in BASIC, shows that the diagram 
is correct and the fable is wrong. Using laps at 5 and I giues a 
cycle length of 7; 5 and 2 gives the maximum, 31. Thus, how can 
we be sure the other entries on the table are correct? 

By the way, the number '1021' in the right hand column of page 
29 should be 10'' (or I0\2I). The former is not very "astronomi- 
cal". 

Our hun:iblest apologies for this one, Charlie. We Ye also sorry 
we didn't get to this sooner, but the original manuscript for this 
article went into hibernation while we effected our ''big move" 
and only just turned up again the other day. 

Aiter checking the manuscript, the taps shown for Ihis spot in 
the table are indeed at 5 and 2. Following your suggestion, we 
decided to check the rest of the table too, but found no other 
errors. The number 10T21 checks out too, but c'mon Charlie. . . 
the difference is only 1,000,000,000,000,000,098,979 (1 sextil- 
lion.98. ..^ 

And thanks for writing! We usually only find out about errors in 
programs. It's the meticulous types like yourself that allow 
others to go back and "update our product". 



Common by Comparison 

Everett E. Stone writes describing some troubles getting David 
Lathrop's "Compare" program (Transactor, Volume 8. Issue I) to 
work - "1 can not get the check sum of 26624 nor can I run the 
the program without adding another zero to the end of the DATA 
statements at line 7450/' 



'11 assume you're already aware thai the checksum should be 
523626 (26624 is the initial loop value), but that one's too easy. 
One of the most common and less obvious problems we find 
readers encounter with long listings of DATA statements is the 
omission of a comma. Usually this error gets detected because 
the comma is missing from between two numbers that, when 
concatenated, form a value greater than 255, However, if the 
comma is absent from between two numbers such as 2 and 44, 
the READ command ''sees" a value of 244, which is okay in a 
POKE statement or CHR$ function. However, the program has 
just scooped up two numbers as one, and will run out of DATA 
before the READ loop is complete. Adding zeroes to the end of 
the DATA statements will satisfy the loop, but the entire program 
beyond the trouble spot will be ''skewed" one byte. 

Separating numbers with a period instead of a comma creates a 
similar situation. This one's equally hard to detect at first glance 
because the POKE command and CHR$ function simply ignore 
the fractional part and report no error. 

Remember, machine language is an exact science: it's either 
right or it isn't. An ?OUT OF DATA error can indicate a missing 
comma, a missing DATA number, or even a missing line. The 
first thing to check is the counter value. If the loop is FOR J = 1 to 
100. a ''PRINT J" immediately after it's finished should return 
"10r\ If you get, for example, ''99", you have two problems to 
go looking for. 

Once the loop is ending correctly, it's possible the check sum will 
fall naturally into place. If it doesn't, there's a couple of other 
potential trouble spots you can look at before you conclude that 
the error is in the printed listing. If the variable "CH" is osed to 
accumulate the sum (as is the case with most programs in 
Transactor), PRINT CH after the error report. If it contains a 
fractional part, chances are there's a period where there should 
be a comma. If it's off by an even lOOor 200, chances are you've 
keyed, for example, 49 instead of 149 or 2-19. 

Lastly, the Verifizer entry checker will prevent almost any error, 
but it can be fooled. Verifizer uses a technique called Cyclic 
Redundancy Checksumming in arriving al its two-character 
code. However, the cycle length Chris chose was 4. Therefore, if 
two consecutive 3-digit numbers occur in a DATA line (e.g. ". . 
.208, 249, . . ."), entering ". , ,249, 208, , . ," would produce the 
same code (comma is important, space is ignored). A cycle of 5 
would virtually eliminate this possibility because only the odd- 
est of DATA loaders ever use numbers with more than 3 digits. 
WeVe considered making a new Verifizer that checks for spaces 
within quotes and ignores remarks - perhaps we'll alter this too. 
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TeleColumn 



Forums Get Face Lift 

Some 3 months of preparation, a 19 hour online stint, several 
rounds of internal shuffling, and another two sessions of alx)ul 12 
hourseach.haveied to there-organizalionoftheData Libraries in 
CBMPRG anfi C8MC0M. the two forums we manage on Compu- 
Serve, 

A little background: the forums originally kept all files and 
programs in one of 1 1 Data Libraries. Once in a Forum, one would 
enter "DL" at the main Function prompt followed by a number 
from to 10. or simply DLn, where n was the DL number for 
those who didn't need to see the list of choices each lime. 

Some time ago, CompuServe extended their Forum software to 
allow 18 DLs, 0-17. It was suggested that DL be reserved for 
Sysop activity, but DLs 1 through 17 could be titled any way 
deemed appropriate. Terrific! Now we could go and redistribute 
files in our DLs into more narrowly defined categories. Compu- 
Serve furnishes a number of utilities accessible only from Sysop 
accounts for doing just that, and it would be a simple matter of 
moving the files from one DL to another. Not so simple! 

First we captured the titles and descriptions of every file from all 
1 1 DLs in both CBMCOM and CBMPRG, There are thousands of 
files representing a few meg of code uploaded over the course of 
the last 4-5 years! Since none of this is Amiga software (that's all 
intheAMIGAFORUM DLs), a meg adds up to a LOT of programs. 
It didn't take long to realize that we'd bitten off a mouthful 

After a few weeks of evaluating the kinds of programs in there, we 
created a number of new categories. With 18 DLs per forum, 
minus 2 for the Sysop areas, we had 34 to work with. But we 
didn't want to use them all up - we wanted to leave room for 
future expansion should the need arise. Several times we were 
forced to discard, modify, combine, and create more new catego- 
ries so that each and every file in the DLs would have a ''place to 
go". We settled on the 3 1 titles below, and then determined which 
would go to CBMPRG and which in CBMCOM. We avoided, 
however, deciding the order of the DL titles, mainly because we 
thought this would change, and because we didn't have to at this 
time. 

We knew in advance that many files in CBfvlCOM would eventu- 
ally end up in CBMPRG, and vice versa. In fact, we decided that 
the C128 Terminal Programs DL in CBMPRG should go over to 
CBMCOM with the other telecomputing stuff. However, Compu- 
Serve has no remote Sysop utility for transferring files between 
Forums, short of downloading and re-uploading. So we desig- 
nated a "transfer DL*' in each forum that CompuServe could then 
transfer for us locally. 



It took months to go through ail the lists. Before actually printing 
up the lists, Nick trimmed down most of the descriptions to make 
them less unwieldy. Even then the total listing was around three 
inches thick. Each file was given a code from 1 to 31. Although 
several of the DL names weren't changed, we still went through 
each and every file looking for strays that would be better off in 
another category Quite often Nick and 1 would look at each other 
and one of us would say "what's this doing here?", and promptly 
mark it to be moved to one of the other 30 categories. 

Then Came The Day 

We fired up a terminal program on the Amiga and another utility 
that allowed 50 function key definitions through use of the SHIFT, 
ALT and 'Amiga" keys. The codes we gave each file were used as 
indirection to a command stored in a function key that would 
move the file to the appropriate DL. It wasn't until this point that 
we actually picked the order of our DL names as they would 
appear to the user. With CompuServe's 19-character limit on DL 
names, this wasn't always easy! 



CBMPRG Data Libraries 

CBMPRG Sysops 

1 New Uploads Ocl-> 

2 Programmer Utils 

3 Assembler Utilities 

4 DemoPRGs&Subrtns 

5 The Forth Zone 

6 The C Language 

7 Non-Resident Langs 

8 C128 Mode Only! 

9 CP/M and GEOS 

10 Sector-Level Utils 

1 1 File Conversion 

12 DOS Assistant 

13 Needs 1571 or 1581 

14 Orphan Computers 

15 (Future Expansion) 

16 Transactor BITS 

17 Transactor Prc^rams 



CBMCOM Data Libraries 

CBMCOM Sysops 

1 New Uploads Oct-> 

2 Help & Forum Utils 

3 News and Articles 

4 Reviews and Demos 

5 Science & Education 

6 Write, Print & Plot 

7 Home and Business 

8 General Databases 

9 Special Databases 

10 Speech Synthesis 

11 Exotic Applications 

12 CBTerm & Related 

13 C-64 Terminals 

14 CI 28 Terminals 

15 BaSPrgs(64&128) 

16 (Future Expansion) 

17 (Future Expansion) 



So, for example, if a file were to be moved to category 27 ("File 
Conversion", DLll), we would hit ALT F7 which would send a 
"MOVE IT" command. Category 17 was 'Assembler Utilities" 
(DLS), so SHIFT F7 would do a ''MOVE 3". 

When the target DL and the source DL were both in the one 
forum, that was the end of it. But if a file in one forum was being 
sent to the other, the function key was set up to send it to the 
transfer DL. We did CBMPRG first. Files with category codes of 2, 
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5. 7, 8, 9, 12. 13, etc., required hitting F2, F5, F7, F8, F9, SHIFT 
F2, SHIFT F3, etc. but ail of these produced a ''MOVE 15", since 
DL15 was the transfer DL for files emigrating from PRG to COM. 

The whole idea was lo do most of the thinking offline, a habit 
weVe formed over the years that's become hard to break even 
though we aren't charged for our online time. By using this 
approach it wasn't necessary for us to convert our code to the DL 
number - the computer would do it. In retrospect it all worked 
well, but we made the operation so mindless that we spent most 
of the time waiting and adding to our "CompuServe wishlist" of 
Sysop utility functions. 

Okay, let's get started. Whoops! First we'll have to determine the 
destiny of the files that have arrived over the past 3 months. No 
problem. . , Ihey'll all appear first and we'll just decide on the fly 
until we gel to the file that's first on our lists. 

Ummm, maybe we'd better close access lo the DLs. Il would be 
okay to download programs while we worked, but if anyone 
uploaded a new program it would get gobbled up faster than hot 
dogs at a baseball game. Our apolc^ies to anyone who got cut off - 
we didn't mean to slam the door. 

Now for CBMCOM. The same approach was simply modified 
slightly such that the function keys were all re-defined with the 
individual MOVE commands to the DL numbers within COM, and 
all the fkeys corresponding to CBMPRG codes got a ''MOVE 1 7" - 
the transfer DL for files going over to CBMPRG. 

A quick note to CompuServe staff would have the two transfer 
DLs swapped by the day after tomorrow, and it was on to "phase 
* = * + !'■ 



by, ''try DL X, or Y, or Z". with an "I dunno" as a reluctant 
alternative. 

Now, you can ask for a program and chances are good that we 
saw it in our travels, chances are better we'll know exactly where 
to look, and odds are even good that you'll find it yourself in a 
quarter the time it took before. Not only that, but there are several 
programs that simply would have never even been found because 
they were stored in places where it was unlikely anyone would 
even look. 

I 

The "New Uploads DL" will make it a lot easier to see what's new 
without the need lo BROwse oHthe various DLs looking for recent 
stuff. Once a month this DL will be cleared out so that only the 
most recent of uploads will be present. 

Next step? The upgraded Forum software also extends the num- 
ber of Sub Topic names from 11 lo 18. Once again, Sub Topic is 
reserved for Sysop chat (and no, it's not so we can talk behind 
your backs - it's mostly for letting the Sysops and assistant Sysops 
know the status of uploads and other forum management activ- 
ity). That leaves, again, 34 spots for Sub Topic titles, which we 
intend to enter and alter over the next few weeks. 

Why did we tell you all this? Well, it's the Display Area thing 
again. This may sound like another excuse, but we decided that 
before we go making major additions, we ought to get our house 
in order first. The forums demand a good percentage of our time 
and adding a new wing to the complex means even more time. 
Therefore, il made sense to try and polish up the present routine 
so it could be more self-supporting when the time comes to 
concentrate on the new construction. For those who care, the list 
of online tasks in order are: 



About 1 meg of files would cross paths during the swap. Once 
back online it was a simple matter to go through the files that had 
arrived from the neighboring forum and redistribute them among 
the local DLs. 

ACK! What are these doing here?! Oh welt, so a few files 
accidentally got hijacked. While redistributing in CBMCOM we 
discovered about 6 or 7 files that really should have stayed in PRG. 
Another quick little note to CIS staffers, and back they went. We'd 
like to thank Alex Sutcliffe of CompuServe's Forum Support Group 
for his time and patience. 

So what's this all add up to? Well first of alL . . MAN! Does 
CompuServe ever have a mountain of programs available. Some 
of them aren't worth the ferrite they re stored on for more than 
about 3 people in the entire galaxy. Others are so old that it was 
only the fact that they're out of the high traffic areas that kept 
them from the deadly ERA command. We in fact ERAsed a LOT 
of old and decrepit programs that were just cluttering up the joint, 
and managed to eliminate a lot of duplicates and obsolete ver- 
sions. But most important is the effect our re-categorizing will 
have on the task of finding a program. 

Before, if a user asked us if we had a program for a specific 
purpose, our best answer was/yes, we have one", followed often 



i. New Sub Topic titles 

2. New DESC files for the DLs, When you enter a DL, type DESC 
at the main prompt. This seldom used feature will print a 
description of the DL and what it contains. However, with all 
the moving around and re-categorizing, the DESC files will 
virtually all need to be replaced. 

3. New HELP files in CBMCOM DL2. We answer a lot of questions 
in the message bases of the two forums. Often the questions are 
repeated every week, and we enter a new answer each time. 
Sometimes the most recent answer contains details not in- 
cluded in the previous one, and vice versa, !t would be better, 
therefore, to collect all the details for the common questions 
and compile them into comprehensive, all-inclusive Help files. 
Further, members could read this online, or capture and read il 
offline. The objective would be to make enough Help files to 
eliminate the basic questions, saving the members time, 
money, and sanity. 

4. Transactor Programs to CBMPRG DL 16 and 17. Yes, we're a 
little behind on this too, but we're working on it. Once again, 
the articles that go into the Display Area will often reference 
prc^rams in the Transactor DL. We want them all in there so 
we know for sure what the file name will be. 

5. The Display Area. When this opens it will contain 5 years' 
worth of text totalling around 5 meg of characters. We want to 
be sure that the text we put online is exactly the same as what 



The Transactor 



16 



March 1988: Volume 8, Issue 05 



was primed, but with the mistakes fixed, of course. To do this. 

we're "reverse typesetting" the articles. Over the years, every 

article from every Issue has been stored or^ typeseUer 8' 

Uoppvtis. Since most of what we publish Is spell checked at the 

type shop, and then edited in one way or another, we're using 

the version on the typesetter disks as the source. Then we have 

to take all the typesetter codes out and transmit the raw text out 

of the typesetter onto disks that can be read with equipment 

that can Xmodem transmit the text inlo our DA work area on 

CompuServe, We Ve done about half so far and are picking up 
speed as we go. 

Stick with us. . . we oniy wanna do this once, so we wanna do it 
righl. 

Common Sense Function Keys 

It seems that defining the function keys from within the Common 
Sense terminal program is not as obvious as most would like. Hit 
C= and K followed by the function key you wish to alter. From 
there you may enter up to 80 characters including ^'Shift @" to 
terminate the line. 

The default definitions are saved in a file called MAC.BOOT This 
file is loaded when the program is first RUN. To save the new 
definitions, rename the file ^'MAC.BOOT" and use C= S to save 
the new keys in a new file with the same name. 

+ + + A Minus Minus Minus 

Hitting the " + " sign three times while connected with a Hayes {or 
a truly Hayes compatible) modem will allow the user to temporar- 
ily suspend online activity while performing some other task. 
Theoretically the carrier signal isn't lost, but we all know that isn't 
true with some ''Hayes compatibles". However, real Hayes com- 
pats allow the user to change the character from " + " to virtually 
any other, ATS2 = 64 will, for example, change it to the @ symbol. 

Why would you want to do this? Truthfully, i don't really know. 
But Hayes must have included it for a reason. Initially 1 thought it 
might be possible to bring down a BBS by making it send you 
back three plus signs followed by a pause. But most BBS programs 
reset after a lost carrier or time limit. Any other ideas? 

R$232 Interfaces 

The RS232 interface project we published two issues ago is now 
working great for everyone who built it (at least, everone we've 
talked to about it). About the biggest problem was the note on the 
schematic about grounding all unused pins. That really should 
have said (as the article text did) "all unused inputs" - ie, the 
unused pins that were "input pins" should have been grounded. . 
. the others left as N/C, However, as reported in this issue's Bloops 
section, it's best to leave all the unused pins N/C. 

However, for some, there^s an even bigger problem; N/T - No 
Time! I remember a time when I would build every TTL gizmo i 
could find a schematic for. Now I barely have time to plug in a 
soldering iron. Sound familiar? 



Omnltronix Deluxe RS232 Interface - $49.95 (206) 624-4985 
Jameco Electronics JE232CM - $39.95 (415) 592-8097 
kprolek Umveisal RS232 - $39.95 (SOO) 962'5S00 or [W^] ^KJ- 
2454 

Which one is best? Perhaps someone would like to put together a 
point-by-point comparison and send it in. The write-up could even 
include our do-it-yourselfer by Mark Farris. 

Plus 4 Terminal With Xmodem 

Hi^yterm (written by my good friend Paul Higginbottom) is 
probably the most common terminal program among Plus 4 
owners. But you left out Xmodem, Paul! 

P/4 TBRM is one solution. Contact Dennis Larson, 1 1982 Xeon 
Street NW, Coon Rapids, MN, 55433. His CompuServe account 
number is 75555,705. 

1650 Ring Detect and Answer in BASIC 

Gary Farmaner of Oakville, Ontario, has this for anyone writing 
software to support a 1 650 or other "non auto-answer" modems. 

A 1650 isn't realty an "auto-onswer" modem. All functions are 
handled in software. 

Yon fiQve to monitor a line in $DD01 (56577) to see mhetfier a ring 
condition is present. If bit 3 is low (= 0), a ring is in progress. Tfien 
put tfie modem online by setting bit 5 of 56577 fiigft and check for 
a carrier via bit 4. 

10reg = 56577 

20 open 2,2,0,chr$(6): poke 56579,38: poke reg, peek{reg) 

and 223 

1000 rem wait lor ring 

1 010 if peek(reg) and 8 then 1010 

1 020 rem ring in progress, answer it! 

1 030 poke reg, peek(feg) or 32 

1 040 rem check fcr carrier 

1050 lor x=1 to 10000 

1 060 if peek(reg) and 1 6 ttien 1 1 20 

1 070 next 

1 080 rem timeout on carrier detect 

1 090 poke reg, peek(reg) and 223: gotol 010 

1 100 rem start bbs 

1 110 rem clean up for/next loop and drop into bbs 

1120 x = 10000: next 

Here's what's happening: 

Line 10 opens the RS232 channel and sets up the port 

Line 1010 waits for bit 3 of reg to go low 

Line 1030 forces the 1650 online 

Line 1 050- 1 070 is a countdown carrier detect 

Line 1 090 re-starts the ring detect if no carrier within 10000 

checks. If there is a carrier, the loop exits prematurely 

to. , . 
Line 1 120 cleans up the loop and starts the program- T 
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Fast String Search 
With Binary Trees 



Herb Rose 
Dale City, VA 



. , ,a 'Wokfe-and-conquer^' approach to handling a list of data items. . . 



Herb Rose is on Engineering Manager ot CONTEL ASC^ areas, 
and is the author of the INFO*SHARE multi-user bulletin board 
system, ARC64 fife archival program for the G64. and fi4ACR0- 
64, a macro assembler for the Commodore 64. 



Organizing Your Data. 

The first step in writing a program is usually to list the data items 
the program will manipulate, and to organize them into suitable 
data structures. Related items are grouped into RECORDS, sort 
keys are identified so that individual records are easily found, 
and otherdecisions are made concerning the organization of the 
data. The complexity of the program is often determined by the 
organization of the data which it must manipulate. It is no 
surprise that programmers spend a great deal of time learning 
how to create and use data structures. Knowledge of data 

organization techniques can turn a monstrous programming job 
into a real snap. 

This is a short tutorial on one of the most useful and elegant data 
structures u^ed by programmers, the Binary Tree. This article 
will explain what binary trees are, how to use them, and will 
present a BASIC program which creates and manipulates a 
binary tree which represents a siring array. 

What Are Binary Trees 

A binary tree is simply a method of organizing data items within 
your program, in the same way that sorting is a way to organize 
data items within your program. A binary tree allows you to 
organize your data, insert and delete items, and search the list 
without moving any data within the list. A binary tree consists of 
NODES, which contain the data itself, and from each node there 
are BRANCHES- Each branch is actually a pointer to another 
node. When a rule for branching is applied to the tree, it 
becomes an efficient data sorting/searching tool. The rules we 
will be using for our binary trees are quite simple: 

1. Duplicate nodes may exist. 

2. Each node has 2 branches, which we will call left and right. 

3. We will use the left branch to go to a lower or equal value 

4. We will use the right branch to go to a higher value. 

We now have the basis for a ''divide-and-conquer" approach to 
handling a list of data items. As we traverse the binary tree 
searching for a particular data item, each branch we take brings 



us closer to the data we seek. The process is similar to using a 
binary search with a sorted list. Here is a sample binary tree 
which holds the letters A through H. Note that in some cases 
only one branch is used. In actual practice, each node has 2 
branches, with unneeded branches marked in some way (usu- 
ally a pointer value of 0). The node containing 'E' has arbitrarily 
been chosen as the first node in the tree (the BASE). All access to 
the tree will start at E. 



/ \ 



B 

/ \ 
A D 

' / 
C 



G 

/ \ 
F H 



Let's define some terms, using examples. A node is simply a tree 
entry which contains a value. Each letter entry in the tree above 
represents a node- Node "E' is the base of the tree. It has no 
parent node, but it does have 2 branches ( 'B' and 'G' ). 'B' is As 
parent node. It is also 'D s parent node. W is the left branch from 
node 'B'. 'D' is the right branch from node 'B'. 

Remember that the picture above is simply the graphic represen- 
tation of the binary tree. The data items are usually stored one or 
more arrays and the branches are kept as integer pointers to the 
next array entry (the index of the entry is usually kept, although 
in assembly language the actual ADDRESS of the next entry is 
sometimes kept as the pointer. 

To set up a binary tree, you would use a program section similar 
to one of these (data consists of one string item and one integer 
item i.e. Name and AGE). 

In BASIC: 

1 00 dim a$(500),b(500); rem to hold data 

1 1 dim l%(500),r%(500) rem left and right branches 



InC: 



struct tree { 

char mydata[datasize 

intmoredata; 

fnt leftptr; 

int rfgthptr; 

) bintree[500]; 
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Searching the Tree, 

As stated above, searching a binary tree is similar to applying a 
binary search to an ordered list. In order to find any enlry in ttie 
tree, we simply start at the base of the tree, and compare for a 
value that is equal to, less than, or greater than the value we are 
searching for. If the value at that level of the tree is equal to our 
search value, we are finished. If it is less than our search value, 
try the value on the right branch, else try the value on the left 
branch. This is because our rule stales that we go to the left to 
find a lower value, and to the right to find a higher value. For 
example: we wish to find the value 'C on the tree. Starling at the 
base, we find the value T. V is less than 'E', so follow the left 
branch, it contains the value "B'- 'C is greater than ^B', so use the 
right branch. It contains the value 'D\ V is less than 'D\ so use 
the left branch. There we find 'C. our search string, completing 
the search. We performed 4 compares to find a random element 
in an 8 entry list, not a bad performance. Now use that method 
to find 'G\ We only use 2 compares to find the element this time. 
That is a very good indication of the search speed of binary 
trees. 

Inserting Tree Entries. 

Insertion and deletion of entries is one of the most appealing 
aspects of binary trees. In order to add a new entry to the tree, 
simply follow the branches down as you would for a normal 
search, always going to the left when the string to be inserted is 
less than or equal to the value of the current node, and going to 
the right when the insert string is greater Ihan the current node. 

When you find an unused branch, link your new entry there, 
and you are done. No data is moved within the array. 

BASIC Programming Examples. 

Here are several routines which demonstrate the techniques of 
searching, inserting entries into, and deleting entries from 
binary trees. These programming examples use a binary tree to 
access data in a string array named A$. Number arrays are used 
to keep track of the left and right branch pointers for each node. 
First is an insertion routine, which is used to add an entry to the 
binary tree. This routine does not add an entry to the string 
array; that must be done prior to calling this routine. Whal this 
routine does is insert the array entry A$(S) into the binary free 
which describes array A$, L and R are the left and right pointer 
arrays- The variable S is loaded prior to calling this subroutine, 
and must contain the index of the array element being added to 
the tree. The essence of this routine, as with all routines which 
deal with a binary tree, is that we jusi keep going down the tree; 
using the branching rules described above, until we find what 
we are looking for. In this case, we are looking for an empty 
branch. When we find it, we will link this array entry into the 
tree by placing S into the empty branch pointer. 

1 000 k = 0: rem k is the cur. node, start at base 

1010 if a$(s)>a$(k) then 1050 

1 020 if f{k}<>0 then k = l(k): goto 1 0TO 

1030 rem ** this position empty, insert here »* 

1040 l(ki = s: return 



1 050 if r(k)<>0 then k = r{k); goto 101 
1060r(k) = s: return 

To build the tree from scratch given some number of records 
already in the arrays, use this short routine: 

270 rem do not insert a$(0), we will use it as the 

271 rem base of the tree. 

272 rem the next iine intializes i and r to 
275fors = 0lo5000:l(s) = 0: r(s) = 0; nexts 

277 rem now add each populated array element to the tree 
280fors=1 to 5000: if a$(s)<>"' then gosub 1000 
290 next s 

Next is the search routine, which searches A$ for an entry which 
matches T$. !f one is found, its index is returned in S. else -1 is 
returned in S. 

2005 s = -1: rem initializes to show error return 
2010 k = : rem initialize key to base of tree 
2020 if a$(k) = t$ then s = k: return 
2030 lft$>a$(k) then 2100 
2040 ifl(k) = then return 
2050k = l(k): goto 2020 
21 00 if r(k) = then return 
2110k = r{k): goto 2020 

This routine is very similar in function to the insertion routine 
described above. Note that in lines 2040 and 2 1 00, if the branch 
we wish to take is empty, we return -1 in S, indicating to the 
caller that T$ is not in the tree. In line 2020 we set S equal to the 
current node index and return, identifyingthearray entry which 
matches the search string by it's index. 

Deletion of records is quite simple, but requires some explana-^ 
tion. If we wish to delete a record, we simply put a in the 
appropriate branch pointer ( U,) or R() ) of its parent node (the 
one just above it in the tree). That marks the branch as 
''unused". The astute reader will now wonder, "What if the 
record being deleted has branches?". It usually does. When we 
delete a node whose index is K, and which has branches, we 
create 2 smaller trees, whose bases are R(K) and L(K). All we 
must do is insert these trees back into the main tree (call the 
insert routine with S = L(K) and with S^R(K)). Here is the code 
to perform a deletion. 

3000 rem d is the index of the record to delete 

3001 rem first, find the parent node 
3010 k = 0:forj = to 1000 
3O2Oifl0-dorr{j) = dthenk = j:j=1OOO 

3030 next j 

3031 rem now k is the index to d's parent node . 
3040 if k = then return: rem not found 

3050 if l(k) = d then l(k) = 

3060 if r(k)-d then r(k) = 

3061 rem the entry is now deleted from the tree 

3062 rem now insert the branches 

3070 if l(d)<>0 then s = l(d} gosub insert:1(d) = 
3080 if r(d)<>0 then s= r(d):gosub insert:r(d} = 
3090 return 
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This routine is ralher incomplete, and messy, ft will not allow 
you to delete the base node (index 0), and it searches for the 
parent node sequentially instead of using the tree structure. It 
does, however, illustrate the basic principle of deletion. 



Binary Trees in C 

C and Pascal provide a method of simplifying binary tree 
manipulation. Both languages allow RECURSION, where a func- 
tion or procedure can call itself. As an example - here is the 
search routine written in C. using the structure given above, 
using '^moredata" as the search key : 

search {key, curnode) 
int key, curnode; 

{ 

if (key = = binlree[curnode].moredata) 

return key; 
if (key < binlree[curnode],moredata) 

return search(key, bintree[curnode]Jeftptr); 
else 

return search(key. bintree[curnode]Tighlplr); 

There are ways of writing this routine in C which are more 
compact and perhaps more efficient, but this style demonstrates 
the techniques of recursion and tree searching very well. 



Optimization 

The efficiency of a binary tree can be measured in terms of the 
number of data comparisons needed to find a random element 
on the tree. This depends on the number of levels in the tree. 
The 2 trees shown below represent the same data, but are vastly 
different in shape and efficiency. There are 6 levels in tree *1 , 
therefore a maximum of 6 comparisons would be needed to find 
an element at the lowest level of tree *1, while only 3 compari- 
sons would be needed to find an element at the lowest level of 
tree *2. 
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1 - Choose a base that is near the median point of the array, that 
is, half of the array elements are less than the base value, and 
half are greater. 

2. Do not insert sorted data into I he tree. Inserting the values A. 
B, C, D, E, and P into a tree (in that order) will produce a 
branch that looks like tree* I above (try it!). Inserting D, B, E, 
A, C, and F will result in tree ^1, 



Tlie Demo Program 

The demonstration program is a BASIC routine that demon- 
strates the techniques for using binary trees, and shows you the 
speed advantage of incorporating binary trees into programs 
which must search lists of data. The program asks for the 
number of random strings to create, then it creates random 
strings and places them into an array. Each array entry is 
inserted into the binary tree as it is created. 1 random indexes 
are chosen, and the array is searched sequentially for the 
records- 10 more random indexes are chosen, and the search is 
performed using the binary tree. Next you are asked to enter a 
text string for the binary tree search to look for. This is a good 
demonstration of speed since the string you enter will probably 
not be found, so the search routine must descend all the way to 
the bottom levels of the tree. As with all sorting algorithms, the 
average amount of time saved saved per search is dependent on 
the number of array elements. If the array only has about 20 
items in it. the binary tree search will take just about as long as 
the sequential search. For 1000 entries, the binary tree search is 
over 1 times as fast. 

Binary trees are very general in nature, and will lend themselves 
to almost any application where fast data retrieval is necessary. 
They are great for symbol table manipulation in assemblers and 
compilers. 

Binary Tree Demonstration Program 



Tree *2 is said to be balanced, while tree *1 is said to be 
unbalanced. There are algorithms which can be used to balance 
a tree that is unbalanced, but that subject is beyond the scope of 
this article. Here are some guidelines to follow when building 
binary trees that will help to keep them somewhat balanced : 
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KB 
Dl 
JM 

AH 
GF 
LM 
ML 
CL 
AB 
FH 

DC 

OD 

GC 

FM 

FJ 

FL 

MF 

CI 

EL 

BC 



1 00 rem binary tree demo program 

110 rem by herb rose 

120 input'size of string array "in 

130 print"[CLR]binary tree demo" 

140 prinfcreating "n' random strings" 

150 dim aa$(n);dim l(n):dim r(n) 

160sd = -ti:a = rnd(sd) 

170fori = 1ton 

180 print ^■[UP]^n1 -int(rnd{1)*10)+ 1:a$^" 

190forj=1ton1:b$ = chr$(jnt{rnd(1)*26-f65)) 

:a$ = a$-f b$:nextj 
200 aa$(i) = a$ 
210l(i) = 0:r(i) = 
220ifi>1 then gosub 670 
230 next i 

240 prinfarray created" 
250 print'sequential search for records' 
260a = 
270forj = 1to10 
280n1=int(fnd(1)*n) + 1 
290b$ = aa$(n1):t1=ti 
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300 
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310 
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320 
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330 
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340 


BL 


350 


PM 


360 


OF 


370 


MB 


380 
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390 


FF 


400 


LC 


410 


MP 


420 


CC 


430 


EF 


440 


BM 


450 


DJ 


460 


CM 


470 


FO 


480 


KO 


490 


AO 


500 


OJ 


510 


KO 


520 


HN 


530 


KD , 


540 


FE 


550 


EB 


560 



i-1 

ifaa${i) = b$then340 
i = i + 1 
goto 3 1 
t2 = ti 

s = int(((t2-t1)/60)*100) 
s = s/100 

a = a + s 

print 'item #"n1 " 's'seconds" 

nextj 

print 'avg search time = 'a/IO 

prinfbinary tree search" 

a-0 

f(5rj=1Io10 

n1=jnt(rnd(1)*n) + 1 

b$ = aa$(n1):t1=ti 

gosub 760 

t2 = tj 

ifs = -1 then print'*"; 

s = int({(t2-t1 )/60)»100):s = s/1 00 

a = a + s 

print "item ff Til ■ 's'seconds' 

nextj 

print 'avg search lime = 'a/IO 

b$=" 

input 'string to find ';b$ 

ifb$ = " then end 



DC 
LA 
KD 
EO 
CG 
LF 
HO 
EP 
HN 
lA 
FG 
MP 
MA 
GN 
iD 
GP 
OE 
LA 
CG 
BJ 
OH 

oc 

JA 
AP 

Gl 

GB 

CL 



570tl=ti 

580 gosub 760 

590t2-ti 

600ifs = -1 thenprint'nottound'; 

61 s = int(((t2-t1 )/60)*1 00):s = s/100 

620 print 'search time's'seconds' 

630 goto 540 

640: 

650 rem the binary tree insert routine 
660: 

670 k = 1 : rem base is 1 

680 ifaa$(i)>aa$(k) then 710 

690 if l(k)<>0 then k = l(k):goto680 

700l(k)-i:return 

71 if r{k)<>0 then k = r{k):goto680 

720r{k) = i:return 

730; 

740 rem the binary tree search routine 

750: 

760s = -1 

770 k=l 

780 ifaa$(k) - bSthens = k: return 

790 ifb$>aa$(k) then 820 

800 ifl(k) = Othen return 

810k = l(k):goto780 

820 ifr(k) = then return 

830k = r(k):goto780 
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USA. 
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Computers 
and Copyrights 



Tony Romer 
Edmonton, AB 

<Q) 1987 by Tony Komer 



. . , You have probably heard many stories of how poorly 
current copyright laws protect modern computer software. . , 



Part I: Introduction 

The purpose of this report is to explain copyrighting in Canada and 
the United States. Pari I gives a background of copyrights in general. 
Part II explains how to copyright your software. Part (11 explains the 
legal aspects of copyrights. Part IV explains the use of Public Domain 
material (material not currently copyrighted). 

Before explaining the copyright procedures, let's first make sure we 
fully understand the difference between software and hardware. 

Software is a story of mystery and intrigue. It is a poem contrasting 
hope and despair. It is the portrait of the world through an artist's eye. 
It is a song of love. 

Hardware is a pad of paper and a pencil. It is a book of pages with ink 
etchings. It is a canvas layered with pigmented oils of many colors. It 
is a plastic disc of uneven grooves, a turning circular platter, and a cut 
diamond. 

[f you can understand this, then you can understand the difference 
between software and hardware. Software is a purely non-physical 
collection of information. Hardware is a physical device (a chair, a 
desk, a pen). Most hardware has nothing lo do with software, like 
chairs and desks. Some hardware is used to store or transcribe 
software - a pen, a typewriter, a record player, a sheet of paper. 

So where are computers in all of this? Many people mistakenly relate 
software and hardware directly to computers. As you can tell from the 
above, software and hardware have nothing to do with computers. 
However, computers rely totally on software and hardware. 

To computers, software is a collection of information. Hardware is the 
devices used to store and transcribe the software - printers, key- 
boards, monitors, disk drives, cassette drives, cassettes, cartridges. . . 
A subset of the software (a word processor, a video game, an 
operating system) may t>e used to provide information to control (or 
instruct) the hardware peripherals. 

Now back to copyrights. Only software can be copyrighted. In fact. 

copyrights were created for exactly that purpose. That may seem 

hard to believe, sirice copyrights existed long before computers. You 

very probably ha^ve lieard many stories (mostly true, unfortunately) of 

how poorly current copyright laws protect modern computer soft- 
ware. 

Having read the above, Ifiough, you no doubt understand that 
software covers a wide range of information ^ books, poems, songs. 



paintings, photc^raphs, documents, sound effects, moving pictures, 
and the list goes on. All of these forms of software are easily 
copyrightable even by the oldest of copyright laws. 

Copyrights were formed to protect an individual's expression of an 
idea, concept, theme, algorithm or methodolc^y. 

Copyrights give copyright owners exclusive control over the reproduc- 
tion and distribution of their copyrighted material. 

// is the expression of an idea thai is copyrightable, and not the idea 
itself. That is fundamental to copyrights. Spiriting the fuzzy lines 
between an idea and a particular expression of an idea is a matter for 
the courts. 

The oldest of copyright laws protects software as designed by the artist 
and any mechanical reproduction thereof. This pertained to both of 
the only two copyright conventions existing today - the Berne 
Convention and the UCC (Universal Copyright Convention). 

The Berne Convention remains [uucfi the same today. The UCC has 
been widened broadly, and even has many special sections referring 
only to computers. Basically, the Berne Convention is used by the 
Commonwealth countries, like Canada and Australia. The UCC is 

used by the United States, Germany. Belgium Tt^ether the 

conventions cover virtually every country in the world. 

Canada, and many countries, observe copyrights under either con- 
vention. However, you can only gain copyright by the Canadian 
Federal Government under the Berne convention. Fear not, though - 
you can gain copyrights in countries of which you are not a citizen, 
such as the US under the UCC. 

With computers, the original copyright laws definitely allowed a 
prc^rammer to copyright his or her source software and documenta- 
tion. It is with object code that copyright problems arise. It seems 
courts just couldn't agree on whether the object code was a mechani- 
cal representation of the source code (like the grooves on a record, or 
a French translation of an English song), or a separate and distinct set 
of information not created by the author. 

The US finally did something about tlie object code problem to protect 
the authors, and are continuing to update their laws. Changes in 
Canada's copyright laws are imminently upcoming, (Just as they were 
a year ago. just as they were two years ago, and just as tfiey will be 
five years from now. ) 
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What is not copyrighiable? Ideas, concepts, olgorithms. themes, 
methodologies, and formulas (mathematical or otherwise) are not 
copyrightable- Your oniy means of protection here is lo keep your 
idea, algorilhm, or formula a secret- 

Films, audio tapes, video tapes, and phono records are not copy- 
rightable] Read that sentence carefully. Tfiose are all forms of 
hardware - tfieir software contents may very well be copyrightable. 
Il may seem quite obvious to you that you don't vfant to copyright an 
audio tape or a video tape - but remember never to use those words 
on a copyright form. Copyright offices are very sensitive about exact 
wording on Iheir forms. Never use words like 'idea', 'concept', 
'methodology' and 'formula' on your copyright forms. Use these 
words only in your documentation, which is part of the work to be 
copyrighted. ' 

Like hooks, documentation can contain almost anything, and be 
copyrighted. So you can copyright a list of formulas, or a book of 
recipes. Thus no-one can exactly reproduce your list of formulas, or 
even print one of your recipes in the same form, without contravening 
your copyright. But they can use each and every formula or recipe. 
They can even produce their own list of the same formulas, or a book 
with the same recipes, provided the form in which they are presented 
is sufftciently different. As I said above, your only real protection here 
is secrecy. 

I may set a camera on a tripod and take a photograph of a gorgeous 
waterfall against a beautiful sunset. I, and I alone, have the right to 
distribute copies of photos reproduced Irum the negatives at whatever 
price can be agreed lo. On the other hand, you may have set your 
camera on the same tripod right after f stepped dowEi, and have 
photographed the same scene. You also have the same rights to your 
photograph - no matter liow similar it looks to mine. The scenery b 
not copyrightable - oniy the images as captured on film. You have 
yours, and I have mine. 

A company comes up with a great idea for a video game. They decide 
to create a new caricature that eats dots and chases monsters with 
greal sound effects. It could turn out to be a good idea, so they decide 
to use it. The game is created as a computer program, and is 
copyrighted. You see the game, and decide to create one for yours^elf. 
Have you violated a copyright law? Tills depends on the degree of 
similarity. Remember, ideas are not copyrightable. Therefore anyone 
may produce a computer game of dot-eating, monster-chasing char- 
acters. The moving pictures, sound effects, and code are copyright- 
able. If you haven't seen the code then you almost certainly cannot 
have violated that copyright. As for the rest, it must be very much 
alike to violate the copyright l>ecause, as ! have said, anyone can use 
the same Idea. Also rememb-er this about your own programs - 
anyone can use your ideas without violating your copyrights. 

What about titles? Titles are not copyrightable. Copyright offices 
do not even check these. You may, however, violate someone's 
registered trademark. Companies often register their titles as trade- 
marks because copyright protection is not available. Copyright offices 
will not check for trademarks either - that is your duty. Common 
words will not be registered trademarks, like Blockade, or Breakout. 
Thus you may find very different software programs, fully copy- 
righted, with the same names. 



should beware of even notable companies with that regard - and 
copyrights are cheap to obtain.) 

Copyrights are not designed only to protect the rich. Governments 
realize that many struggling artists and authors cannot afford high 
copyright costs. You can copyright your material for only $10 US in 
the States or $25 Cdn. in Canada. You can even copyright collections 
for the single cost in the US. Alternatively you could get a lawyer to 
copyright your works for you at $500 or more for each work. 

Part 2: Oblainiiig A Copyright 

You can obtain formal copyrights under the Berne convention in 
Canada or under the UCC In the States by requesting the appropriate 
forms for unpublished or published works from the corresponding 
governments. The forms will be sent to you free of charge- 
In Canada, request Form 9 for an unpublished work, Form 10 for a 
published work. hi the States, request form TX for computer works 
excluding audio and/or visual features. Request form PA (Performing 
Arts) if your work includes graphics and sound effects (arcade-type 
games, for example). Remember, you do not have to be a citizen of the 
country in which you choose to obtain a copyright (but a member of 
any country observing at least one of the two conventions, almost any 
country in the world)- 

Each government will forward additional information to help you fill 
out the forms. Wording on the forms must be very exact. 

For copyright under the Berne convention write to: 

The Copyright Office 
Consumer and Corporate Affairs 
Ottawa-Hull, Ontario 
Canada K1A0C9 

For copyright under the UCC write to: 

The Copyright Office 
Library of Congress 
Washington, D.C 
USA 20559 

Or phone (202) 287-9100 and leave your request on the answering 
machine. 

Copyrights in Canada cost $25 Cdn. for each work. Copyrights in the 
States cost $10 US for each work, or collection of works. 

The forms will either have a line requesting the nature of the work, or 
the nature of the authorship of the work. If you are copyrighting non- 
audiovisual work (a utility program, an operating system, a compiler 
or a word-oriented game, for example), simply describe it as an 
Artislk and Literary Work. U your work includes graphics and sound 
effects, descrit>e it as an Artistic and Literary Audiovisual Work. 
Alternatives, of course: Artistic and Literary Audio Work, Artistic and 
Uterary Visual work. Do not say the work is an audiovisual work on 
cassette or on a floppy disk; leave the hardware medium out of your 
descriptions. 



If you would like to register your own title you will find it expensive There is a place to show this as an anonymous or a pseudonymous 
(S300ormore). If you find a publisher for your program, chances are work. In an anonymous work, you will not show any name of 
they will look after those details. What you want is to copyright it authorship on distributions of the work. Pseudonymous works will 
formally, so that the publisher cannot claim it as their own work. (You show a pen name on the works - Tony Romer is such a name. 
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Copyright forms allow you to show the true authorship of the work 
(authorship is nol necessarily ownership). In fact, if you are using a 
formal copyright, you must show the true authorship. 

You must show if the work was made for hire. If you created the wortc 
while salaried or commissioned by someone else then, as a work 
made for hire, it very probably belongs to the person or company that 
paid for it. Very probably - but not necessarily Unless a formal 
agreement staling the nature of ownership has been made, the actual 
ownership may need lo be settled by the courts. Regardless, show the 
work as a work made for hire if you have been paid to produce it. 

The remaining sections of the forms should be matter of fact. You may 
explain the nature of the work more fully in the documentation 
accompanying the work. The forms were designed lo contain all the 
required information for copyright - in fact, your form will be rejected 
if you give or show an allachmenl. 

A title for the work must t>e shown. Titles do not have lo be unique, 
and are nol protected under copyrights. However, they carmot violate 
a registered trademark. It is your duty to ensure the title does not 
violate a registered trademark. The copyright office will not do this for 
you. 

Works of authorship do not have to be formally copyrighted to be 
protected. However, formal copyrights are required under the UCC 
before a legal case can be instigated. Formal copyrights are the best 
way to establish the date of true authorship. 

The Berne convention does not require any special affixations to a 
work to show that it is a copyrighted work. The UCC does require the 
work to be shown as copyrighted. Therefore, all works should be 
shown with the UCC markings lo provide for copyright under the 
UCC, even if not formally applied for. 

The UCC requires the work to be shown as Copyright at a specific 
date, and by a specific party. The only formal means of showing the 
copyright mark are: Copyright, Copr. , or the letter c enclosed within a 
full circle, (Also the letter p enclosed in a circle for audio works only). 
Courts may also respect other symbols, such as (c) and (C). These are 
sometimes frowned upon, since they have not been officially adopted 
by the UCC. To my knowledge, however, they have never t>een 
rejected in a copyright case. The following, then are acceptable: 

Copyright 1 987 by Transactor 
Copr- 1987 by Transactor Publishing inc. 
Copyright (C) by Transactor Publishing Inc. 1987 
(C) 1987 by Transactor Publishing Inc. 
(c)1987 byTonyRomer 

A court will allow copyrights without the ownership affixed - even if 
the work is totally anonymous (just "(C) 1987", for instance). How- 
ever, the offices vastly prefer that the copyright holder be shown. 

An author can allow one or more other parlies to show a copyright 
holding of a work with their own names affixed without losing his or 
, her full ownership of the true copyright. 

In the United States, return one copy of your unpublished work, oi 
two copies of your published work, with the forms. In Canada do not 
return any copies of an unpublished work with the forms, or two 
copies of a published work. If you follow these statements on 
copyrights in Canada, then you can see why I frown on Canadian 
copyrights - the office has no formal procrf >hat you completed a work 
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since it only received a title, and aii extremely brief description of the 
work's nature. 

You do not need to re-submit a previously copyrighted unpublished 
work for copyright after it has been published. A copyright exists for 
28, 50 or 75 years depending on the convention copyrighted under, 
and renewal after initial copyright. 

Obtaining a copyright does not hjlly establish an author as a true 
owner or creator of a work. It merely helps lo establish the owner. 
Ultimately if it ever comes to court, the legal process will decide the 
actual copyright holder. Which brings us to. . . 

Part 3: Legal Aspects of Copyrights 

Formal copyrights help lo establish the ownership and dale that a 
work has been completed. However, they don't guarantee full owner- 
ship by the holder. That is for the courts lo decide. For example, John 
Doe may write a book anonymously, perhaps even including the 
proper copyright symbols. Long before the book becomes popular, 
John Smith applies lo copyright the book, and successfully, though 
fraudulently, receives a copyright registration. 

If John Doe can provehimself lobe the true creator of Ihe work (not 
made for hire) then he is indeed the true copyright holder. In the 
court's view. John Smith is far more likely to be the holder - since Mr, 
Smith has succeeded in obtaining a copyright on the work. However, 
if John Doe can produce a copy of the work from a sealed bank vault 
dated prior to John Smith's copyright application, the judge will 
probably find him lo be the correct holder. 

1 hope this example illustrates why a formal copyright should be 
sought. John Doe will have a very difficult lime proving his author- 
ship unless he has a sealed copy dated such that it can he proved lo 
precede someone elses copyright. Both alleged holders may be able 
to show any number of witnesses supporting their claims, so wit- 
nesses will nol serve as well as having physical proof of ownership. 

Many people ask if it is all right lo copy cc^yrighted software for 
friends if no money changes hands. The answer is definitely NO! - it 
is not all right. A copyright gives the holder rights to distribute and 
regulale the distribution of copies. These rights have nothing to do 
with money. 

People assume that software published in magazines is free to copy- 
Wrong again. In fact any work that is published is automatically 
copyrighted, and the magazine sends two copies of each magazine 
issue to the appropriate offices for forma] rights. These companies are 
in the business of selling magazines - they give rights to each 
magazine holder to have or obtain a copy of the software on the basis 
that the magazine was purchased. 

Remember thai ideas, themes, and concepts are not copyrightable. If 
ideas were copyrightable, one person would probably hold a monop- 
oly on murder mysteries, word processors, or computer operating 
systems. Ideas, no matter how simple or complex, are not copyright- 
able. It is only the full expression of the idea that is copyrightable - not 
the idea itself. 

It is quite possible lo create software that expresses someone else's 
ideas in apparently the same form without violating their rights. For 
example, you could completely imitate someone else's word proces- 
sor, pmviding the code used is different. Similarly someone else can 
do Ihe same with your ideas. 
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An imitator should be aware, however, thai portions of the work 
imJlaEed may violate artistic computer designs, which are now copy- 
rightable with other material under the Performing Arts. Closely 
imitating a screen design would be a copyright infringement. 

CombattiEig computer theft has been a difficult and delicate issue. 
There have been some successful cases, though, Apple has won a 
number of cases in Australia protecting their ROM (Read Only 
Memory) software. A software publishing company successfully sued 
a magazine publishing company for a very lai^e sum for publishing 
their methods of software protection under the guise of methods for 
programmers to protect themselves. 

This supports one of my contentions: any article giving details of 
software protection only serves to help software pirates. A protection 
scheme becomes useless when anyone can find the scheme on a 
magazine stand. At best, magazines should provide methods for a 
programmer to go about creating his or her own protection - not 
details of a currently used scheme itself, 

(Please note: Software Protection is o totally separate issue from 
Software Copyrights. Under a good protection scfieme, tfie software 
should t>e hilly copyable. and sffould not damage the user 's hardware 
or software in any way A legal owner of any software product has 
the right to make txicfi-ups for as long as the original copy purchased 
is owned. The courts haoe mode this legal right of software owners to 
make back-ups quite clear.) 

Musical compositions are also copyrightable. Since much of the 
computer music supposedly in the public domain consists of versions 
of compositions actually created by other artists, such music almost 
certainly violates their rights - it is a mechanical reproduction of their 
work. 

Of note here is a successful lawsuit made on behalf of the Beatles a 
few years ago, A company published a concert by the Beatles on 
video tape which, indeed, was not copyright and belonged to the 
public domain. However, the tape included the music - which was 
copyright, and therefore the copyright was violated. (In other words, 
they could legally only have distributed the tape without any sound.) 

People work hard to produce their work. It may turn out to be quite 
good and marketable, or quite poor. The quality of Ihe work is 
inconsequential to the copyright. These rights should be respected. If 
the artist is actually good enough to have the product marketed, then 
the royalties will encourage further work, and generally the quality of 
the work will increase because of Ihe monetary rewards. 

What do you think would have happened to your favourite rock 
bands and authors if everyone was freely copying their works? There 
probably would not have been much work left fo copy. Would Arthur 
C. Clarke have written 2010 if he didn't receive any money for 2001? 
You will have to ask him. 

Part 4: Public Domain Software 

Public Domain Software is software for which copyrights are not 
currently in effect. \n other words, Public Domain material is material 
that you can copy and distribute freely to your friends, 

"Night of the Living Dead" and "It's A Wonderful Life" are Public 
Domain movies. Computer user clubs often have thousands of Publk: 
Domain games, utilities, and other .software. 



Most Public Domain material is so because that was the author's 
intent. However, sometimes material is not properly protected and 
falls info the Public Domain against the author's wishes. Once an item 
has fallen into the Public Domain, it is there to stay. However, 
copyrighted material is often distributed with Public Domain materia! 
by mistake - the copyright is still in force, and the distributor could be 
sued for its illegal distribution. Therefore Public Domain distributors 
generally try to avoid distributing copyrighted material without per- 
mission to do so. 

There is nothing wrong with selling Public Domain material for a 
profit. Some companies stress that they are providing the software 
free and only charging for the service. Actually that is not necessary, 
and they could charge anything they wanted for the service anyway. 
Any notices restricting the buyer from distributing the software 
themselves is without force for true Public Domain material - anyone 
can distribute it, no matter how it was obtained. 

It is actually the competition that keeps the cost of Public Domain 
material low. You should expect, though, to at least be paying a small 
amount for the equipment used in the copying process, the time used 
for the copying, and the shipping and handling charges. Some places 
may have volunteers doing the copying, but it probably would not last 
- it is rather boring work for a non-paying job. Therefore you should 
expect to pay for their time. 

Because authors do not gain any monetary rewards for Public 
Domain material, you will find most of it rather simple software. You 
will need to sift through a lot of low quality software to find the real 
gems - and some of it will be quite good, like the movies mentioned 
above. You will find a lot of it without any instructions, and perhaps 
plagued with errors - well, what do you expect for such low cost 
software? 

1 am aware of a company distributing Public Domain software 
blended in a collection of copyrighted software all under the guise of a 
single copyright. This is probably fraudulent, since most of the 
software is Public Domain. Public Domain software cannot be copy- 
righted, and a court will probably take a dim view on the copyright- 
able software since it is indistinguishable from the non-copyrightable 
software. 

You should be aware that some Public Domain distributors may 
legally include copyrighted works with their material, providing the 
author has allowed such distribution. This software will be clearly 
marked as copyrighted - you cannot distribute copies of it yourself 
without obtaining permission from the copyright holder. 

Postscript 

At the time that this article is undergoing final preparation for 
printing, efforts by the Canadian government to upgrade our current 
copyright laws to better protect computer software continue. While 
any changes in this regard are welcome (and overdue), 1 would like 
once again to emphasize that Canadians can copyright their material 
under the UCC by sending copies of their documents and software to 
the Copyright office in Washington, DC. Canada, and many other 
countries recognize copyrights under the UCC in addition to copy- 
rights placed under the Berne convention. If you choose not to 
formally copyright your material, you should at least place copyright 
notices on your software where it will be clearly visible (Copyright 
1987 by John Doe, for example). 
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Matrix Mathematics 
for the Commodore 64 



Don Currie 
Maidstone, ON 



. . Sometimes the things that were easy to learn 
are often the most time consuming, . - 



Malhemalics is Ihe language of the sciences, but sometimes the 
language catt get in the way of the solution. Yes, as powerful as 
math is. sometimes it can be too tedious to appreciate its power. 

Sometimes the things that were easy lo learn are often the most 
time consuming, such as matrix multiplication or the solution lo a 
system of linear equations. That is why the following programs were 
written to allow a person to calculate the answers quicker and easier 
than traditional pencil and paper methods. 

Matrix Multiplication 

The product A*B of a matrix A with 'm* rows and 'p* columns and a 
matrix B with 'p' rows and 'n' columns is defined as C with 'm' rows 
and ^n' columns where c„ (an element in C, with i representing the 
row and j the column oi a specific element in the matrix) is defined 
as: 

From the definition, the number of columns in A must be equal to 
the number of rows in B or else the definition does not hold true. 

In any case, m, n and p can be any size value, but a practical limit 
forthecomputer is20. If the maximum values are used form, n and 
p. the memory usage on the Commodore 64 would be 8400 bytes at 
7 bytes per number. 

In the program, lines IQO lo 390 serve to input the number of rows 
and columns of matrix A and B, do error checking on the values, 
and then the actual entry of the values into the matrix. The program 
will ask for the value in a specific row and column using the a„ (orm 
for both matrices. Lines 410 to 600 are responsible for calculating 
the matrix product and printing the values in the new matrix. The 
values are printed in columns, one column at a time starting from 
left to right. 

Solving N Linear Simuitaiieous Equations 

Solving linear equations by hand can be a chore even with jus! a few 
linear equations. A technique often used to find the point where the 
lines represented by your equations intersect is Jacobi Iteration, 
which can approximate a system to any given tolerance. 

In order to solve ihe system of n variables, you need n equations to 
get an actual numeric solution. In order lo show you how to input 
the values into Ihe program, an example will be used. 

The computer will first ask for the number of variable you wish to 
solve for. For our case it is 2. The computer will then ask for the 
system oi equations to be entered. Say our equations are; 



1x + 2y = 3 
4x + 5y = 6 

We then lake all the values and place them in a 2 rows and 3 
columns matrix as 



1 2 3 
4 5 6 



and input the values when the computer asks for the specific 
element in the matrix. The program will then ask for the tolerance 
the system is to be solved for - this value controls the accuracy of 
your approximation. For most situations, .001 is adequate. The next 
question is the number of iterations you wish to Iry to obtain the 
solution of the system. The greater the number of tries, the more 
chance there is of obtaining the solution to your specified tolerance. 

The computer will then print the answer in column form for your 
system. 

The Jacobi method is good for any number of equations, but the 
limit for this program is set at 20. 

In the prc^ram. lines 100-240 are responsible for getting the 
number of equations and the matrix values from the user. Lines 
250-360 check to see that the matrix was entered with no zeros in 
its principle diagonal. (The principle diagonal starts at the upper left 
and ends at the second last column at the bottom of the matrix.) If 
the matrix does have a zero in the principle diagonal, the program 
then seeks to arrange the matrix to have no zeros in the principle 
diagonal. Lines 370-390 get the tolerance and the number of 
iterations from the user Lines 400-470 arrange the equations so the 
principle diagonal is as large as possible (a condition for the Jacobi 
method to work). Lines 480-700 perform the actual iteration work, 
and line 660 jumps to the answer output routine when the tolerance 
is met. Line 700 jumps to an error message when the system does 
not converge to your tolerance after the stated number of fries. 



Conclusion 

Matrix multiplication and solving linear equations occur in the 
sciences and engineering fields quite often in areas as diverse as 
special relativity to basic electrical circuit analysis. White the pro- 
grams can be run without understanding how to perform the 
operations by hand, I encourage the reader to learn at>oul their 
many applications and the theories and specific properties behind 
both operations. 
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Matrix MuJliplier 



BA 

MD 

OB 

CP 

FJ 

DL 

IE 

LC 

BM 

LN 

DH 

FF 

CF 

HE 

OA 
AD 
GD 
EN 
HJ 
GK 
LP 
CH 
CH 
IB 
GN 
FO 
HD 
EK 
Jl 
JJ 
CM 
FG 
BO 
BK 
GA 
BJ 
BP 
JN 
LE 
HL 
00 
HA 
LP 
EK 
GB 
GC 
BF 
HA 
KE 
GM 
NP 



100 pfinfmalrix multJplication";print 

110 prinfthis program finds the product of a' 

120 prinfset of two matrices having up to" 

130 print'20*20 dimensions" 

140prinfiDNRVS]matrixA:' 

1 50 print" how many rows and how many columns ?' 

160 input" rows";f1 

170 input" columns";c1 

180prinf[DNRVS]matrixB:' 

190 prinfhowmany rows and how many columns?' 

200 input" rows";r2 

210 input* columns";c2 

220 it r1 >20 or c1 >20 or r2>20 or c2>20 then 

print"[RVS]matrices too large";end 
230 if c1<>r2 then print '[RVS]# of cols in A not 

equal to # of rows in B":end 
240 rem 
250dima(rl,c1) 
260 print 

270forr = 1 lor1:forc=1 tod 
280 prinfenter mathx A value";r;c; 
290 input a(r,c) 
300 next c,r 
310dimb(r2,c2) 
320 print 

330forr=1 tor2: forc = 1 toc2 
340 prinfenter matrix B valueV;c; 
350 input b(rc) 
360 next c,r 
370 print 

380 prinfthe resulting matrix will have:" 
390 print r1 "rows and'c2"columns' 
400 print 

410 print "multiplication begins' 
420dimc(r1,c2) 
430forr = l tori 
440 for = 1 toc2:cs = 
450foru = 1 tod 
460cs = a(r,u)*b(u,c) + cs 
470 next u 

480c(r,c) = cs: nextc.r 
490 next c 
500 next r 

510for c=1 toc2: print 
520forr = 1 tori 
530print' C ';r;';;c;" = "c{rc) 
540 next r 

550 print:print'hit return to see next column" 
560 gel a$:if a$<>chr${13) then 560 
570 next c 

580 input 'require check view (y/n) n[3 lefts]";a$ 
590ifa$ = "n"Ihenend 
600 goto 510 



Simultaneaous Linear Equation 5olver 



BJ 

IM 

MC 

CO 

KG 

CL 



100 prinfjacobi iteration'; print 

110 prinfthis program finds the solution to' 

120 prinfa system of equations having up to 

1 30 prinf20 variables with 20 equations. " 

140 print: print "how many variables 

150 prinfyou wish to solve tor";;input v 



GC 

OB 

FH 

MC 

KP 

10 

PH 

AK 

PL 

AC 

BD 

DP 

PM 

FE 

LA 

IB 

ID 

EG 
ON 
OF 
OM 
OB 
DH 

ND 

AG 
DN 
BP 
Nl 
EO 

AC 
ON 
)L 
GA 
Kl 
LN 
HE 
FN 
NM 
BA 
MG 
HL 
DG 
Fl 
Ml 
IF 
OA 
EF 
EG 
AC 
MG 
AL 
BM 
CI 
EJ 
HO 
HE 
AF 
MA 
FC 
DE 
KK 



1 60 If V - or V = 1 then print "[RVSltoo few":end 

1 70 if v>20 then print "[RVSJtoo many";end 

180 print "then there must be";v;"equations' 

190dimm(v,v+1) 

200 print 

210forr = 1 tov:forc = 1 tov+1 

220 prinfenter matrix M value";r:c; 

230 input ■ ';m(r,c) 

240 nextcr 

250fork=1 tov 

260ifm(k,k) = 0then290 

270 next k 

280 goto 370 

290forj = 1tov 

300 if m(j,k)<>0 and m(kjK>0 then 330 
310 next] 

320 print;prinf (RVS]sarry, jacobi iteration will not 

work on the system":end 
330 fort- 1 iov + 1 

340ss = m(j,l):m(k,t) = ss 

350 next t 

360 next k print 

370 prinfto what tolerance do you wish 

380 prinfthe system to be evaluated to"; 

:inpuf[2spcs].001[6left|';ot 
390 print "how many iterations"; :inpuf [2 spcs]1000 

[6left]';rj 

400forj=1 tov: loc=j 

410for i = jtov 

420 if m(iJ)>m(loc,j)then loc = i . -^ 

430 next i 

440forz = 1 tov+1 

450 s = m(loc,z): m{loc,z) = m(j,z): m{j,z) = s 

460 next z 

470 nexlj 

480fork-1 tov 

490s = -m(k,k):m(k,k) = 

500forc = l tov+1 

510m(k,c} = m(k,cys 

520 next c 

530m(k,v+1) = -m(Kv+1) 

540 next k 

550 dim xo(v), nx(v) 

560 it =1 

570 for 1 = 1 tov 

580fort=1 tov 

590xs = m(l,t)*xo(t) + xs 

600 next t 

610nx(l) = xs+m(l,v + 1):xs = 

620 next I 

630cs = 0:fori=1 tov 

640 a = abs{xo(j)-nx(j)):cs = cs + a 

650 next j 

660ifcs/v<otthen730 

670 f or j = 1 to V 

680xo{j) = (nxO) + xo(i)}/2 

690 next j 

700 it = it + 1 : If it< = ri then 570 

710 print' [RVS]no solution available 

720 prinf[RVS]equations must not intersect, ^end 

730 print 

740fort = 1 tov 

750print"x■;t;' = ^nx(t) 

760 next: end 



The Transactor 



27 



March 1968: Volume 8, rssue 05 



Read Inf ocom 



Thomas W. Gur ley 
Wills Point, Texas 



A Blind Walk Through The Black Forest 



1 am always most curious about that which is hidden, forbidden 
or secret. One ot the first programs 1 bought for my Commodore 
64 wasZork II, part of Infocom s celebrated original series of text 
adventures. Another was The Clone Machine, a program with 
features for examining raw sectors on disk. Somewhere be- 
tween the two, I conceived a goal that was to take me down 
paths I never knew existed: I wanted to find out what words 
Zofk II knew. 

Quite innocently (never having used a "real computer ' before) I 
began to search the tracks and sectors of the Zork II disk with 
The Cioae Machine. To my surprise there were no secret words 
to be found! Suddenly it appeared that 1 was on a quest equal in 
magnitude to that of the search for the Holy Grail! Knowing 
absolutely no machine language, I started reading and studying. 

I obtained an ML monitor and began to disassemble Zork II. 
Gradually, after literally months of reading, studying and disas- 
sembling, over and over and over, things began to make sense. I 
found the place where keyboard input occurs (even this was 
fR'ariy a miracle because I knew nothing about the Kernal). 
Slowly, though, everything became easier, and eventually I 
discovered the answer to the question with which 1 had begun. 

My reason for relating this history is to perhaps inspire others to 
"dig in". I now feel quite comfortable with as.sembly language, 
and 1 truly owe a debt of gratitude to the authors of Zork 11. What 
began as a simple challenge turned out to be an almost total 
learning experience. The code in the Infocom programs is very 
well written, and has taught me a lot about programming 
technique. 

As an aside, I should state that my delving into the labyrinth of 
Infocom was not for the purpose of piracy. In fact, the program 
that follows will not aid in such activity - it will merely give you 
an opportunity to study more closely an Infocom program you 
already own, and perhaps to help the bedraggled adventurer 
find his way. 

Infocom Program Structure 

Many of the Infocom games share a common structure. In fact, 

the first 8000 bytes or so are identical except for a few strings. 

The Zork I machine language driver works fine with the Sorcerer 
disk or with hifidel. 

I do not have access to all of the Infocom games, so you will just 



have to test this program for yourself on a particular game. I 
know it works with the Zork series. Infidel, Planetfall, Enchanter 
and Sorcerer. It probably works on most or all of the others as 
well. 



will most often refer to Zork II, because that is the program with 
which I am most familiar. It is a long program, so I won't 
describe all its intricacies here. As far as my project is concerned, 
the first break came while I was actually playing the game. I 
noticed that when 1 typed a word Zork knew, it responded with 
disk drive activity or a phrase of some sort. If I entered a word 
Zork did not recognize, it responded "I do not know the word 
'junkef'', for example. There was no delay. That meant that all 
the words must be in memory all the time. But when I scanned 
memory, I found much the same thing I found on disk -- no 
words. 

Digging yet deeper into the code, 1 found a (to me) complicated 
character manipulation subroutine. First, the initial six charac- 
ters of a word input from the keyboard are reduced to 5 bits 
apiece, then stored in addresses $5E-$63, The characters are 
then sent through the manipulation subroutine. This lakes the 
second character and mixes it with the first, ORs the result with 
the third character and stores the result in the position of the first 
character. The second character is ROLed with the hrst, putting 
any carry bits in the low nybble of the first. This manipulation of 
bits completely obliterates all of the first three characters. Much 
the same thing happens to the last three. Refer to the source 
code of the routine at the end of this article. You will notice that 
only the last two characters are left unchanged, but those two 
are not used by the next subroutine, which scans memory lor 
the four mixed-up numbers in the previous four bytes. 

Location Of The Words 

I have found three dictionaries in Zork II, The first begins at 
$2A40 and is a 'quick-search' list of often-used words. The 
second begins at $3615 and is a list of responses which Zork 
uses to talk to you. These words will not be recognized when 
entered from the keyboard unless they appear also in one of the 
other dictionaries. The third begins with the letter '^a'' at $692D. 
This is the list of words Zork recognizes as valid words from the 
keyboard. 

All entries in these three dictionaries are made of four bytes - 
corresponding to the four mixed-up bytes encoded as described 
above. 
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Reconstruction 



Uke The Spaghetti Sauce - It's All In There 



So. ..the words are in memory all Ihc time, and now we know 
[hat only four bytes are used. I thought ail I would have to do was 
simply unROL and unASL those tour bytes to reveal the original 
word. Was [ ever wrong! Remember those last two characters? 
They are very important for arriving at the mixed-up numbers, 
but they are not available going in reverse. All you have from the 
dictionary is four out-of-order, mixed-up bytes. 

[ wrote a Basic program thai ANDed and ORed and divided and 
added. It was a monster that took about twenty seconds to 
unROL and unASL any four bytes (even if they amounted to 
nonsense), and there are several thousand bytes in the three 
word-lists. This first program used for-next loops to generate 
trial values for those missing last Iwo characters. Surprise! Real 
words began to scroll by That is how I found "blatgk can>le", 
which f immediately recc^nized as "black candle". But was 
"zifrS;" a word or just gibberish? 

[ came up with Basic equivalents of ASL, ROL, ROR and even 
ASR, which is missing from the 6510 opcodes. 

But I wasn't looking for a copper grail. ' 

Keep in mind that several months have passed since the 
beginning of this story Several months of 20-hour days with 
14-16 of those hours at home with toothpicks jabbed under the 
eyelids. By now, there was no lurning back. Out of sheer 
frustration, 1 did pul aside the project and I actually played 
Enchanter. Every time I played I wondered what secret words it 
knew that 1 did not know it knew. 

I took out the long, slow Basic program once again, and used it 
on Enchanter, That is how 1 found "xyzzy" (at $7C74) and 

"antharion" and "zifmia'M ordered one of the ^'clue" books, but 
thai only helped in solving the game. It did [lothing for helping 
me know the words. 



Then, like a blind man who suddenly sees, it dawned on me that 
all six characters are contained in those four bytes. Indeed, each 
pair of consecutive bytes in the dictionary contains three charac- 
ters. From the moment I realized this until the secret words were 
scrolling by on the screen was less than eight hours. 



Looking Back 

In retrospect, it is obvious that the authors of Zork II were not 
only ^'hiding" the words from prying eyes, they were cramming 
three bytes into two, thus allowing more words for a more 
realistic response. Experienced programmers will probably 
laugh at my naivete, and so do h 

1 am certain my program can be improved upon. Reconstruction 
of the original word from the mixed-up four bytes found in the 
three dictionaries is still not perfect. Following each valid word 
are several bytes that the parser uses to determine the response 
needed for that word. These bytes produce gibberish when 
unscrambled, sometimes producing real-looking words. You 
can ignore the gibberish or figure out how to skip over it. The 
parser uses some of these bytes as an offset to the next or 
previous entry It adds or subtracts offsets, so finding a match is 
fast. 

My program asks for a beginning address. RETURN will start 
you at $2A40 (10816 decimal). The increment for all entries is 2, 
4 or 6, but since you do not know where the words are, an 
increment of 1 can be used. You can elect to increment by 2, 
changing the address to odd or even as needed. 

The short dictionary at $2A40 is on even numbered addresses at 
an interval of two. You will immediately see valid words scroll 
past from this address. 



Is Machine Language The Answer? 

Symass had come out by Jhis time, and I was well enough 
acquainted with assembly language to write a simple program, I 
wrote a machine language program that created all possible 
combinations of the alphabet taken six at a time, and sent them 
forward through the manipulation subroutine. It then compared 
the result with four bytes from Zork IPs word list, and upon no 
match created the next combination. 



Perfect in theory - dismal failure in practice. Even at the 
lightning speeds of ML it took over thirty minutes to go from 
"aaaaaa^' to "baaaaa'\ and on only the first entry in the dictio- 
nary Well, let me tell you - ! abandoned that approach after 
only the first try. 



almost gave up at this point because I had become convinced 
that all six characters must be known, and that the manipulation 
routine was a one-way street without the last two characters. 



The Final Program - The Holy Grail? 

One would hardly think that so short and so simple a program is 
the result of so much time, effort and frustration. Even now, I'm 
not certain it is finished. Perhaps my grail is only gold-plated, 
and I welcome improvements. The words scroll past faster tban I 
can write them down, so a machine language program isn't 
needed. Shift lock will halt the scroll. Fl allows changing the 
address and the increment. 

A complete explanation of how the program works would be 
pointless and confusing without a listing of the parser source. I 
got mine with Un-assembler. Briefly the original keyboard 
input is converted to a number from 6-32. Refer again to Figure 
1 . The lower 3 bits are shifted to the upper nybble {ASL 5 times). 
When the result is ORed with another number, the second 
number occupies the lower 5 bits. Thus one byte contains two 
characters - almost- Actually the carry bits from tlie ASL are 
ROLed into the first character. My program tries to account for 
the carry bits and reconstructs the original six characters. 
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How To Actually See The Words 

A reset switch is necessary- Just follow these steps: 

1) Load and run an Infocom game. 

2) At the first prompt ■>^ hit the reset. 

3) Load and run "read infocom" 

4) Memory is lowered to protect the dictionaries. 

5) RETURN -increment 2. 

6) Fl to change address and increment. 

Between the dictionaries are sections of gibberish used as 
pointers and as storage area by the parser. 

One final note: I chose to display six characters at once. Because 
of this, a short word or parts of longer words may appear on 
more than one line. I find it easier to recognize: 

someth 
ething 
ing. . . 



era #$80 
sta $61 
rts 



than to recognize: 



som 

eth 

ing 



but you can change line 350 and 380 to TOR X= 1 TO 3" if you 
prefer the second exam pie . 

Good luck and happy hunting. 

Disassembly of the input manipulation subroutine (at SIECF) 



Ida 

asl 
asl 
asl 
asl 
rol 

asl 

rol 

Idx 

stx 

ora 

sta 

Ida 

asl 

asl 

asl 

asl 

rol 

asl 

ro! 

Idx 

stx 

ora 

sta 

da 



$5f 



$5e 

$5e 

$5e 

$5f 

$60 

$5e 

$62 



$61 

$61 
$61 

$61 
$63 
$60 

$61 



;redundant, but it's there 



EE 
BJ 
PD 
LK 
EA 
HJ 
MJ 
JB 

GK 

HO 
BD 
PP 

DK 

JN 

CD 

OH 
ME 

CM 

CJ 

FJ 

PK 

LM 

DE 

AN 

PJ 

EL 

CB 

OE 

DA 

KK 

MH 

GJ 

JH 

JJ 

MJ 
NM 
PJ 

HO 



10 rem read infocom 

15 rem 1/3/87 

20 rem thomasw. gurley 

25 rem p.o. box 133 

30 rem wills point, texas, 75169 

35: 

40; 

100 pake55,0: poke56,42; cir; rem lower top 

of basic 
110aa = 0: ab = 0: ac = Q; ad = 0: m=0: n = 0; o = 

: nx = 0; nn = 0: diml{6): rem define variables 
120 pnnt"[3 down][14 spaces]read infocom" 
130 print"[down]start ";: input"addfess';nx 
140 prinfincrement 1 2": input nn: if nn<1 or 

nn>2tlien 140 
150if nx = Othen nx= 10816: rem start of sfiort 

quick search word list 
1 60 if peek(1 97} = 4 then prinfaddress is "nx 

: goto130; rem change address with fl 
1 70 aa = peek(nx): ab = peek(nx + 1 ) 

: ac = peek(nx + 2); ad = peek(nx + 3) 
ie0m=0: n=0; o = 

1 90 rem 95 94 97 96[29 spaces]aa ab ac ad 
200 1(1 ) = int((aa-20)/4) + 64: rem the ' + 64' and 

' + 59' restore alphabet position 
210l(3) = (aband31) + 59;rem'and3T drops top 

three bits 
220 m = int((ab and 240)/32) + 59: rem 'and 240' 

takes top bits only 
230 if (aaand 1) = 1 then n = 8 : rem restore carry 

on second 'rol' 
240 if (aa and 2) = 2 then o = 1 6- rem restore carry 

on first 'ror 
250 1(2) = m + n + o: rem add carries back in 
260 rem second half 

270 m = 0: n = 0: o==0: rem cancel carries 
280l(4) = inl((ac-20)/4) + 64 
290 1(6} -(ad and 31) + 59 
300 m = int((ad and 240}/32} + 59 
310 if (ac and 1) = 1 then n = 8 
320 If (ac and 2) - 2 then o = 1 6 
330l(5) = m-f n + 
340 print; print nx 
350 for X = 1 to 6: a = l(x) and 223: if a<65 or a>90 

lhena = 46: rem '/ = invalid character 
360 rem the 'and' 223 clears bit 5 to make lower 

case character 
370l(x) = a: next 

3B0forx = 1 to 6: print chr$(l(x)};: next: print 
390 if peek(654)= 1 then 390: rem hold with shift 

lock 
400 nx = nx + nn: goto160 
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Interfacing Two 
Commodore 64 's 



Jack Bedard 
Van Nuys, CA 

© Copyright 1987 Jack Bedard 



Develop your program on one C64 and send it directly to another for testing! 



How would you like fo be able to assemble Uirge machine 
language programs and data into 60K of memory withouf 
worrying about assembling on top of the assembler itself or the 
source code? Or how about keeping your machine undisturbed 
when the program you're testing crashes? Cross-assembling - 
assembling from one C-64 to another - is the way to do l!. Code 
is developed and assembled on the source machine, and sent to 
a largei machine to be tested. With the addition of the cable 
interface and software about to be described, very large pro- 
grams can be developed and tested more easily. 

Two complete C-64 systems are needed; 2 C-64"s. 2 monitors 
and 2 storage devices (tape or disk}. Also needed to make the 
cable; 

l,2PCcardedgeconnectors(dualrowof 12 contact pairs 156 
X.145} 

2. 2 protective covers for above connectors 

3. 3 feet of cable (5 multi-stranded, multi-colored wires; 22 or 24 
gauge will do) 

4. a soldering iron (and enough skill to pick it up by the correct 
end) 

5. solder and soldering flux 

6. wire strippers 

(Total cost of 1-3 is less than $10) 

We are going to connect these two C-64s with only three feet of 
wire. Without going into a lengthy discussion of telecommunica- 
tions and the errors that can arise during data transmission, let 
me point out that we should be able to obtain accurate data 
transmission and a very high transmission rate {Baud rate) with 
only 3 feet of cable connecting these two computers. We're not 
asking for very much, just a system that behaves as if the two 
computers are separated by only a few feet. Also, it would be 
desirable to be able to create communication software that is 
efficient in terms of both time and space, i.e. fast execution and 
requiring little memory. U the software doesn't interfere with 
other open channels (printer or disk), that would be an added 
bonus. 

A number of sources have suggested using the mock RS-232 
system that is already set up in the operating system, I went this 
route initially and found that none of the requirements just listed 
was met. The RS-232 channel is limited to an error-plagued 
1200 Baud which may be adequate for transmission of text to 
and from a BBS but not nearly so for the transfer of a ML 
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program where one bit out of place could crash the system. 
F\irthermore, Device *2 must be opened, which results in longer 
programming code and interferes with my commercial assem- 
bler (MAE). 

The Programmer's Reference Guide (page 432) gives a terse 
description of something called the "serial port" (not to be 
confused with the serial port that accesses the 1 54 1 disk drive). 
It describes a hardware-implemented shift register that can be 
utilized by initializing two memory locations and TIMER A, 
Next, drop your data byte into the serial data register and the 
hardware will shift its bits one by one out on the SP pin - 
preceded (slightly) by a synchronizing signal (generated by 
TIMER A) on the CNT pin. When all the bits are gone, a 
particular bit in a control register is set to t (and if you so desire, 
an interrupt is generated) indicating another data byte can be 
sent. On the receiving end, just initialize those same two 
memory locations (ignore TIMER A) and keep checking (poll) 
the control register until that same particular bit is set to 1 , Now 
go over to the serial data register and lift out the newly arrived 
data byte. It is that easy. If it wasn't for the fact that the shift 
register is wired to handle eight bits, Commodore might have 
incorporated it in the ROM routines that manage Device ^^2. 

Let's look at some more details. There isn't just one serial port; 
there is one serial port on each 6526 chip and there are two 
652G s on each C-64. I'm going to call the 6526's by their popular 
names: Ul and U2. (Also, Tm going to employ jargon u.sed in 
technical writing about programming; when 1 say a bit is "set^' 
that means it is set to 1 : when I say a bit is "clear" that, of course, 
means it is set to 0.) Ul's registers are in memory locations 
$DCO0 to $DCOF and U2 s are in locations $DDOO to $DDOF, 
The only locations we will be concerned about will be: 

- SDCOC and $DDOC{the serial data ports) 

* SDCOD and SDDOD (the interrupt control registers) 

* $DCOE and $DDOE (TIMER A control registers) 
*$DD04-5(TlMERAonU2) 

TIMER A on Ul is used by the system to generate interrupts 
(IRQ) every 1/60 second so housekeeping chores can be per- 
formed - reading the keyboard and that sort of thing. Not to 
worry, we need TIMER A only for output so we'll restrict 
ourselves to U2 for output and use Ul for input on each 
computer, (U2 to U2 would work also.) The accompanying 
diagram depicts the 1/0 scheme as well as the wiring arrange- 
ment. As shown, a dual simplex system is set up. It's sort of like a 
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telephone hand-set where data goes out through the mouthpiece 
and comes in through speaker end. [f error checking is desired, 
simply send and have the other C-64 relurn the data for 
verification. 



COdPUTER "fi" 
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Two C64s interfaced via their Serial Data Ports 



I 



K ^Jll EErt :&«:::» 





hk-^^L U- ^_*E*I 



untt noLiEiED H'LAcra ui^ 




Step 1 . $DDOD: clear bit 7 and set bits to 6; this will disable all 
interrupts on this chip. 

Step 2. $DD04: give this low byte of TIMER A a very small 
value - like 4 (we do want a very high Baud rate). 
According to The Programmer's reference guide (PRG): 
"Data is shifted out on the SP pin at I /2 the underflow 
rate of TIMER A." (If transmission errors occur, try 
increasing this value,) Then $DD05 gets a 0. I believe 
this low byte/high byte order is important. 

Step 3, $DDOE: set bit to start TIMER A; clear bit 3 to put 
TIMER A in the continuous mode; set bit 6 to select the 
output mode; clear all of the other bits. 

Step 4, $DDOC; store your data to be transmitted here. 

Step 5. SDDOD: read this location until bil 3 is set; this indicates 
the data has been transmitted; if you want, go to step 4 
and do it again - steps 1-3 don't have to be repeated. 

To input data on the other computer we use Ul: 

Step 1. $DCOD: see step 1 above. 

Step 2. $DCOE: clear bit 6 without disturbing the other bits; this 

will select the input mode. 
Step 3. $DCOD: read this location until bit 3 is set; this indicates 

that data has been received from the transmitting 

computer. 
Step 4. $DDOC: read the data here. 
Step 5, Process the data and go back to step 3 - steps I and 2 

don't have to be repeated. 
Step 6, When hnished, re-enable the system IRQ by setting bits 

and 7 in $DCOD, 

Now, some comments on the programs: 

listing I and 2 are for users of the MAE assembler. The MAE 
receiver program is a mere 64 bytes in length and is tucked away 
in the top of page two. To run the program from a monitor enter: 

+ 

.G 02AA 

If you should want to run it from BASIC jusl change location 
$02D7 from $00 (BRK) to $60 (RTS): 

POKE 727.96: SYS 682 



All wires soldered to top side pins 




The method we are going to implement is a polling one as 
opposed to an interrupt. (The RS-232 uses an interrupt method.) 
To output data we use U2: 



The cursor will vanish and the keyboard will not function - 
except for the STOP key, which is used to terminate the program 
after MAE has finished assembling your ML program. You may 
now run your assembled program. 

The MAE transmitter program has two functions. The first 
modifies the code of MAE itself so it will send the ML program to 
the other C-64 instead of storing it in memory. It does this by 
swapping the three bytes starting at $5FEB with the three bytes 
at $8514; the code at $5FEB then becomes "JSR $8517". The 
second routine is the actual transmitter; it sends the address ot 
the byte about to be stored in the standard low/high byte order 
and then it sends the byte to be stored at that address. 

The procedure to cross-assemble is this: 
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Step 1. In the receiving C-64 load and run your monitor pro- 
gram. 

Step 2, load and run the MAE receiver program. 

Step 3, In the transmitting C-64 load MAE and the MAE trans- 
miHer. Run the MAE. 

Step 4. From within the assembler (MAE), enter ^'RUN $8500". 
This will swap the code as described above, thereby 
diverting the assembled code to the other machine. 

Step 5- Assemble your program. 

Step 6. After the assembly process is finished enter ''RUN 

$8500" a second time. This restores MAE to its original 
state- 

I have tested tliis software on several of my own programs with 
no problems and no appreciable increase in assembly time. I 
assembled a large program that was in six modules on disk; it 
ran in the other C-64 perfectly. 

For further assistance in fathoming the workings of the serial 
port, I refer you to the pages of the PRG {432-434 and the fold- 
out schematic inside the back cover) and COMPUTE! s Mapping 
The Commodore 64 (172-197). 

One final note about the edge connectors: the wires to pins 4-7 
are to be on top - label the connector to indicate that. 1 don't 
know what the results would be if the connectors were inserted 
into the user s port upside-down. Also, insert the connectors into 
the computers only with the power off. 



Notes For PAL Users 

For users of PAL or compatible assemblers, Listings 3 and 4 
are provided. With the program in listing 3, you can send 
code directly from memory to the target computer You lose 
the capability, as in the MAE version, of assembling very 
large programs that would overwrite your assembler or other 
memory-resident utilities, but for large programs you can 
send small portions of code at a time. You still have the 
advantage of not having to worry about losing your develop- 
ment environment when the code you^re testing crashes. To 
use it. assemble your PAL program to memory as usual, then 
send it to the target machine with the command: 

SYS 40850,<start address>,<end address> 

The start and end addresses are in decimal, and tell the send 
routine which bytes to send. For example: 

SYS 40850,491 52,50200 

The "receive" program in listing 4 operates exactly like the 
MAE program in listing 2, except that it is stored in the 
cassette buffer at 828 so that it doesn't conflict with other 
programs that use that area, like POWER. Use it from BASIC 
with a SYS 828. Press the STOP key to exit to BASIC after all 
code has been sent, then SYS to your program to test it. 



Listing 1: This program, in MAE assembler format, will patch the 
MAE assembler so that when assembling it sends object code 
directly to the target computer through the serial cable. 

0020 : copyright 1986 jack bedard 

0030. 

0040 , output assembled code to senaf data port 

0050. 

0060 ; there are 2 separate routines here: 

OO70 ; the 1 st (codeswap) modifies mae ro transmit assembled code 
0080 ; toa^nd c-64 via s.r. port 

0090 ; (1 is activated with this command from mae 'ru $8500' 

0100. 

0110 , the 2nd sends the address to store (low/higti) 
01 20 ; in the other c64 and the byie lo store there. 
0130 

01 40 mae.lable.de $51 ;s[oje address is in this Table 

OlSOmod.adr de $5feb ; my patch goes here 
01 60 u2.lima lo de Sdd04 
01 70 u2.1ima hi de SddOS 



01 SO u2. out deSddOc 


, serial data port 


0190u2.icr .tje SddOd 


■inierrupt control register 


0200 u2. era deSddOe 


■timer a control register 


0210 output de o/bOlOOOOOC 


1 ;bit6in$dd0e 


0220 shrft.reg de o/bOOOOlOOC 


1 ;bit3in$dd0d 


0230 disabl. all .de%omil1l 


:0 in 7 causes the 1 s lo disable those bilj 


0240 timer.a .de iVoOOOOOOOl 


;bil in $dd0e 


0250. 






0260 baud .de$04 


;the baud rate prescaler 


0270. 






0280 


OS 


^^ 


0290 


ba $8500 




0300 


.ce 




0310. 






0320 code, swap 


;patch 'jsr sendtodsp' into mae 


0330 


idx #2 




0340 mod Joop 




0350 


Ida mQd.adr,>! 




0360 


pha 




0370 


Ida mae. code mod.x 




0380 


sta mod adr.x 




0390 


pia 




O400 


Sta mae. code. mod,?< 




0410 


dex 




0420 


bpi mod. loop 




0430 


rls 




0440 






0450 mae code, mod 


: patch io our output routine 


0460 


|sr send lo.sdp 




0470. 






0480 send. to. sdp 


;send byte from stack (under return addrj 


0490 


Sly save.y 


;to other 64. 


0500 


3ix save.x 




0510 


pia 




0520 


sLa ret. ad r 


isave return address from stack 


0530 


pia 




0540 


SLa ret adr + l 




0550. 






0560 


Ida mae fable, x 


.fEnd address for byte lo be sent 


0570 


sta data out + 2 




0580 


Ida mae.iable + 1,x 




0590 


sEa data. out + 1 




0600 


pia 




0610 


sta data out 


;byte to send {after address) 


0620. 






0630 


Ida MdisabLall 


;sel up interrupt control reg 


0640 


sta u2.jcr 




0650. 






0660 


Ida #baud 


;ser up trmer 


0670 


sta ij2.Tima,lo 




0680 


Ida #0 




0690 


sta u2.lima.hi 




0700. 






0710 


Ida #output + iimer.a 


:set up timer control register 


0720 


sta u2,cra 




O730 






0740 


idx #2 


:send the three bytes starling a1 daiaout 


075O 


5ei 


;no interrupts, please 


0760 out data 




0770 


Ida data. out, X 




0780 


sia u2.oul 


;pul the byte on Ihe output port 


0790 






0800 sill! sending 




0810 


Ida u2.tcr 


;vi/ait until it has been sent 


0820 


andffshifi reg 




0830 


beq still. sending 


w 
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0840 
0850 
0S60 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0960 
0970 
0980 
0990 
1000 
1010 



bpl ouLcJala 

di 

Ida retadf + 1 

pha 

id a ret adr 

pha 

Idx save.x 

Idy save.y 

ris 



isend ihenexEone 



;all sent 



;pul return address back on thesEack 



sav&x 
save,v 
rel adr 

data oui 
en 



.dsl 
.dsl 
.ds2 
.ds3 



Listing 2: MAE-format "receive" program. This prcK^ram runs on 
the target compuler and loads all code sent by the source machine. 
Just SYS 682, send the code from the source machine, and press the 
STOP key after the data has been sent. 



0010 , copynghi I9fl6 jack Dedard 

0020. 

0O3O 

0040 

0050 

0060 

0070 

0080 

0090. 

0100 plr 

OnOul.irnput 

0120L[l.iGr 

0130 ul. era 



receive assembled code via 
the serial data porL 

lecewes address to store 
(low/high) and the byte 

to store there. 



.de Sfd 
-de SdcOc 
.deSdcOd 
-de SdcOe 



0140 updaie.91 -de Sf6bc 



ce 
.ba$02aa 

OS 






save.sp 



01 50 stop 

oieo. 

01 70 output 

OiaOshift.reg 

OlSOdisabl al 

0200 enabie 

0210 timer, a 

0220. 

0230 

0240 

0250 

0260 

0370 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 ma>n.loop 

0380 jsr get.sdp 

sta ptT 

jsr get.sdp 

sta 

jsr 



.de$91 

de^OlOOOOOO 
.de%00001000 
.d©%0lil1l11 
.de % 1 0000000 
.de%00000001 



Ida #di5abr.an 
sta uUcr 

Ida ul era 
and #£tt -output 
sta ul era 



; disable interrupts 



clear bit 6 of era. . senaJ port input at 
external clock rate 



gel address of data byte 



0390 
0400 
0410 
0420 
0430 
0440 
0450 
0460 



ptr-f 1 
get.sdp 



idy 
sta 



#0 

(ptO, 



; get data byte 



; store data byte 



beg main, loop 



0470 e-tit 



0480 Ida 

0490 sta 

0500 Idx 

0510 tKS 

05^0 brk 
0530 

0540 gel sdp 



#e n able + timer, a 

ul .icr 
save.^ 



; re-enable interrupts, restore stack, quit 



0550 
0560 
0570 
0560 
0590 
0600 
0610 



isr update. 91 
Ida stop 
bpl exit 

Ida ul.icr 

and#shifl.reg 
beqget sdp 



; cheek stop key 



jwaiifor input char 



0620 Ida ul input ; gel input Char 

0630 rIs 

0640 

0650 save sp ds 1 

0660. 

0670 en 

Usdng 3; PAL-format source code for program to send an area of 
memory from Ihe source machine. This program is placed al the lop 
of memory; to use it, SYS 40850, <starl address>,<end address>. 
Use this to send the obiect code uf a program to the target machine 
after you assemble it. 



lA 


1000 


HJ 


1010 


GJ 


1020 


EO 


1030 


NH 


1031 


LB 


1040 


AJ 


1050 


JE 


1060 


□1 


1070 


EK 


1080 


MO 


1090 


HI 


1100 


FH 


1110 


MC 


1120 


AO 


1130 


GM 


1140 


JO 


1150 


NB 


1160 


JP 


1170 


CB 


1180 


LH 


1190 


CH 


1200 


FO 


1210 


KC 


1220 


K\ 


1230 


LG 


1240 


HH 


1250 


HI 


1260 


FP 


1270 


GH 


1280 


CL 


1290 


KN 


1300 


EJ 


1310 


MH 


1320 


IK 


1330 


CL 


1340 


MJ 


1360 


NC 


1370 


CJ 


1380 


DC 


1390 


IK 


1400 


HF 


1410 


KN 


1430 


MA 


1430 


HE 


1440 


FP 


1450 


FB 


1460 


JE 


1470 


OC 


1480 


DM 


1490 


MO 


1500 


Fl 


1510 


HA 


1520 


PC 


1530 


CP 


1540 


OP 


1550 


EP 


1560 


AB 


1570 


IB 


1580 


MK 


1590 


GL 


1600 


PD 


1610 


HJ 


1620 


NH 


1630 


PI 


1640 


NO 


1650 


BC 


1660 


GH 


1670 


DD 


1680 


AB 


1690 


PG 


1700 


ML 


1710 



openi ,8,l,'0:sendGode obj" 

5ys700 

■ - 19192 

optot 



; act I vale pal assembler 
;top o1 memory (40850) 

; output object lile 



; output code to serial data port 

^ 

; til is routine can be used to send 
lyour code lo [he target computer 
.alter It has been assembled 
:call it from your assembler 
.environment and pass it the start 
,and end addresses ot the object 
,code, e.g. sys 40850,49152,50261 

the routine sendtosdp' sends the 
.address lo store (low/higti) 

■in the other c64 and the byte to 
: store til ere. 



u2timalo 

j2limahi 

u2out 

u2icr 

u2cra 

output 

shittreg 

disabiali 

timera 

codeptr 
endcode 

baud 



$dd04 

Idd05 

SddOo ;ser data port 

SddOd interrupt Ctrl 

IddOe :timeractfl 

%01000000;IddOebit6 

%00001000;SddOdbit3 

'VbOimin :clr ints 

%ogoooooi;$<:idOebiiO 



= Sfb 

- $ld 

= $04 



;ptr to byte to send 
;lasi byte to send 

;baud rat© prescaler 



sendcode = * 

jsr getparam ; start addr iny.a 

sta codeptr + 1 

sty codeptr 

jsr getparam ;get end address 

sta endcode + 1 

sty endcode 



scl 



- • :send all bytes 

Idy ifO 

Ida (codeplr),y ;get next byte 

isr sendtosdp ;send il to port 

inc 

bne 

inc 



codeptr 
SC2 

codeptr + 1 



: point to next byte 



sc2 



;end when codeptr = endcode 



Ida codeptr 

cmp endcode 

bne scl 

Ida codeptr + 1 

cmp endcode + 1 

bne scl 

rts 



sendtosdp = " 

;send codeptr' pointer user port. 

;followed by byte rr\ .a 

sta dalaoul ;byte of code To send 

Ida codeptr ;addr of byte to send 

sta dataout + 2 
Ida codepir + 1 
sta dataout +■ 1 



Ida 
sta 



#disablall 

u2fcf 



idea rail interrupts 
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oc 

HO 
KD 
BM 
KC 
AG 
PL 
LP 
JL 
il 
HG 
PD 
NM 
CK 
IP 
HP 
OM 
KH 
OM 
NM 

ec 

BA 
NN 
DE 
HA 
\C 
IK 
MD 
KF 
DF 
AF 
HF 
CL 
OH 
HH 
AK 
BK 
HJ 
K\ 



1720; 

1730 Ida #baud 

1 740 sia u2limalo 

T750 Ida #0 

1760 sta Li2timahi 

1770; 

1 780 Ida ^output + limeia 

1790 .se! uplimer control register 

1800 ala u2cra 

1810: 

1820 \dx it 2 

1830 ;send 3 byfes starling at dalaoul 



;set up limef 



sai 



= ■ 



Ida 
sla 



dataoul.x 
u2ou[ 



1840 

TS 50 out data 

1860 

1870 

1880; 

1890 

1900slillsdg - - 

tSTO.wait'unU it has been sen i 



; no interrupts, please 



;pul byte on [he port 



Ida ffshiftreg 



bit u2icr 

beq stiJIsdg 

6ex 

bpl outdaia 

clj 

ns 



1920 

1930 

1940 

1950 

1960 

1970: 

1980 

1990: 

2020; 

2030gelparam = . 

2O40 ;5kip comma, get argument and put 

2050 ,in y (low) and a (high) 

2060 jsr Saeld 

2070 jsr SadBa 

2080 jmp $b7t7 

2090; 

2091 ; 

3000 dalaoul • =" + 3 

30 TO :buHerfor addf and byte to send 



;5end the next one 



;afl3 bytes sent 



Listing 4; "Receive" code in PAL formal, identical lo the MAE 
program in Listing 2. This code is located in the cassette buffer 
starting at 828. 





' PD 


1000 openi ,a,1,"0:rcv obj 




DM 


TOlO£ys700 






KA 


I020.oplo1 






DH 


1 030 : copyright 1986 jack bedard 




Gl 


1040, 






CI 


1 050 ; receive assembled code via 




FN 


1060 ; the serial data port 




EK 


1070; 






JH 


1080 ; receives address to store 




OB 


1090; (low/high) and the byLe 




LG 


1 1 00 ; lo store Lhere. 




MM 


1110: 






AC 


1 1 20 ptr 


= $fd 




DE 


1 130 u1 input 


= SdcOc 




MM 


1 1 40 u1 icr 


= SdcOd 




PK 






KG, 


Tl60update9t 


= $!6bc 




DP 


1 1 70 SLOP 


= $91 




CB 


1180, 






JD 


11 90 output 


= %0 1000000 




MP 


1 200 shittreg 


= %00001000 




HH 


1210disablall 


- %oniiiii 




EJ 


1 220 enable 


= %10000000 




FN 


1230timera 


= %OOOOO0O1 




OE 


1240, 






DH 


1 250 • - 828 


,goes in cassette buffer 




CG 


1260: 






DG 


1261 ; 


b 




GA 


1270 


ISK ;save slack ptr lor 




CL 


1280 


Six savesp .clean exit later 




Ai 


1290: 






PN 


1300 


Ida ffdisablall 




KD 


1310 


sta ulicr ;disable interrupts 




OJ 


1320: 






MG 


1330 


Ida ulcra :clearbil6ofcra 




HD 


1340 


and ffSff- output 




AN 


1350 : serial port rnpoiat 




ID 


1360 


sta ulcra lextefnal cfock rale 




AN 


l^^§LJlcra 


IdcOe 




MK 


1380 main loop 


= ^ 




KD 


1390 


isr getsdp ;get data byte addr 


1 MAI 


1 1400 


sia ptr 


The Transactor 



KK 


1410 




jsr getadp 




JP 


1420 




sta ptr + 1 




MJ 


T430 




jsr getsdp 


;get data byle 


GB 


1440: 








FP 


1450 




idy #0 




KC 


1460 




sta Cptr),y 


;sioredala byte 


MK 


1470 




beq mairiloop 


,loop forever 


OD 


1480; 








PD 


1481 ; 








EE 


1490 exit 


= • 




AN 


1500, 


re-enable interrupts. 




PN 


1510; 


restore stack and quiL 




JP 


1520 




fda #enabJe + limera 


AJ 


1530 




sta u 1 icr 




CP 


T540 




Idx savesp 




KA 


1550 




f«s 




EA 


1560 




rts 




IJ 


1570; 








JJ 


1571 ; 








PC 


1 580 getsdp 


■= ■ 




CO 


1590, 


gel byte from serral daia port 


AI 


' 1600 




jsr update91 


;checksiop key 


CE 


' 1610 




Ida stop 




IB 


1620 




bpl exit 




EN 


1630; 








JJ 


1640 




Ida u 1 icr 


;waitfor input byte 


KP 


1650 




and *shiftreg 




JA 


1660 




beq getsdp 


;no byte; loop agairt 


PD 


1670 




Ida ulir^put 


;read the byte 


rviH 


1680 




rts 




AB 


1690; 








CP 


1700 s 


avesD 


. = . + 1 





Listing 5: BASIC program to generate "sendcode.obj", the same 
code produced by assembling Ihe PAL source in Listing 3. Load this 
program and SYS to it as explained in the article sidebar. 

100 rem program generator for 'sendcode.obj" 
110 n$ = "sendcode.obj"' rem name of program 
1 20 nd - 1 03. sa = 40850: ch = 1 6244 

130-260, use the standard generator program from page 5 

lOOOdata 32.240,159.133,252,132,251, 32 

010 data 240, 159,133,254, 132,253, 160, 

020 data 177, 251, 32,186, 159,230,251,208 

030 data 2, 230, 252, 1 65, 251 , 1 97, 253, 208 

040data237, 165,252, 197,254,208.231, 96 

I050data141,249, 159, 165,251, 141,251, 159 

I060data165, 252, 141,250, 159, 169, 127,141 

I070data 13,221, 169, 4, 141, 4,221, 169 

lOSOdata 0,141, 6,221,169, 65,141, 14 

!090data221, 162, 2, 120, 189,249, 159, 141 

lOOdata 12,221,169. 8, 44. 13,221,240 

110data251,202, 16,240, 88, 96, 32,253 

120 data 174, 32,138,173, 76,247,183, 

Listing 6: This program creates "rcv.ob]", the same code generated 
by assembling Listing 4 with PAL 



OL 




EO 




LA 




For III: 


(Ci 


AE 




PB 




PE 




OO 




DE 




FG 


1 J 


GG 




FF 




IF 




CF 




MF 




GJ 




Nl 





ND 

KD 
GK 



100 rem program generator for 'rt^v.obj' 
110 n$ = 'rcv.ob]': rem name of program 
1 20 nd = 64: sa = 828: ch = 8062 



For lines 130-260, use the standard generator program from page 5 



BG 
DF 
MP 
EG 
NA 
CE 
KH 
EB 



1000data186, 142, 124, 3,169.127,141, 13 
1010 data 220, 173, 14,220, 41,191,141, 14 
1020data220, 32,106, 3,133,253, 32,106 
lOSOdata 3,133,254, 32,106, 3,160, 
1040data145, 253,240, 237, 169, 129, 141, 13 
1050data220, 174,124, 3,154, 96, 32,188 
1060data246, 165, 145, 16,239,173, 13,220 
1070data 41, 8,240,242,173, 12,220, 96 
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The Link 

Between C and Assembly 



David GodshaU 
Elkhart, Indiana 



. . .How would you like to be able to access a machine language 
routine the same way you would access a C function? 



If you own'"Power C" from Spinnaker, you own an excellent and 
puwerful implementation of the C language. If you don't, but have 
been thinking about buying a copy, the possibilities opened by this 
article may be enough to push you over the edge. Even if you don't 
own and don't plan to buy Power C, the techniques mentioned in 
this article may apply to other compilers that compile in two 
separate stages {from source into object, then from object into 
executable) or even for other types of programs. 



The Problem- , . 

I was writing some graphics routines to be used from C programs, f 
decided that, while Power C is probably the fastest compiler for the 
C-64 ("A Comparison of Language Speeds", Volume 7. Issue 5), 
nothing can beat hand-coding a piece of code for speed. 1 promptly 
set about coding assembly language routines to clear the bitmap, 
plot points, and all the other nice things you like to do to graphics 
screens quickly. In looking for a good way to use these routines from 
my C programs, I came across the SYS function. I tried it. I gave up 
on it. The main trouble with the SYS function is that it is little better 
than the BASIC SYS command. Il assumes the code is already in 
memory (if it isn't, a special disk access is needed to put il there). It 
does not provide very descriptive access to the routines. The one 
thing it has over BASIC'S SYS command is that it can handle 
parameters - three bytes' worth. Some of the functions I wanted to 
access, however, required more than 24 bits' worth of information. 

So, giving up on the SYS function, I looked around and about and 
inside out for a better way. And I found il! My search led me to the 
internals of the object files - those mysterious files that are the limbo 
between pure source code and pure executable machine language. I 
didn't have a lot of hope, I've looked in real spaghetti files before 
and was afraid the object files would turn out to be too complicated 
for me to figure out without the aid of extensive documentation and 
weeksofpersonal interviews with Power C author Brian Hilchie. My 
fears were groundless. 

Starting My Quest 

To begin with, I already sort of knew what the linker does. It takes 
an object file, moves il to a specific address in memory, and then 
checks to see what the file needs to be linked with. It then gels those 
files, puts them at unique addresses, and checks what files they 
need. Finally, when all the files are linked in with everything they 
need and the linker can't hnd anything else to add, it writes the 
executable file containing all the object files all linked up nicely. But 
what is in an object file? How does it let the linker know what it 
wants and what it has to offer? 



My first clue to the general format of the object files came from the 
mysterious and totally undocumented (in my manual, at least) LIB.C 
file. This is a nice utility that puts a list of all the global identifiers 
from multiple object files into one file so that the linker can find their 
functions and variables very easily. The first four files on the library 
side of the disk {STDLIB.L, STDLIB2X, SYSUB.L and SYSLIB2.L) 
can be examined and modified with this utility. 

By looking at how LIB.C scans object files, I was able to determine 
that object files are divided into four sections. I call them the Code 
section, the Relocate section, the Global section, and the External 
section. Each section begins with a word (two bytes in low/high 
order} indicating how long the section is in bytes (for the Code 
section) or entries (for the other sections). The general format is 
summarized in Table 1 . 

Section 1: The Code Section 

The first section looks familiar when viewed through a machine 
language monitor. It is straight machine language. Well, almost 
straight. There are a few differences that will be straightened out by 
the linker 

To begin with, there is some information that isn't known at the 
time the code is created. Any instruction referencing external 
functions or variables is going to have to have its operand filled in by 
the linker, so it doesn't matter what value is in the operand. 

Secondly, oneofthejobsof the linker is to decide where in memory 
to place the code, fn order to enable the linker to do that easily, the 
code is generated by the compiler as if it were assembled to location 
$0000. In other words, if somewhere in the code you had a JMP 
instruction to transfer execution to the first instruction in the code 
section, it would be a JMP $0000 instruction. The linker can then 
relocate the code by calculating a new base address and adding it to 
the offsets contained in the operands of any instructions referencing 
a part of the code. But how does the linker know which instructions 
need to be adjusted for the new address and which are already 
pointing at the correct location (i.e. a ROM routine, a zero page 
location, etc.)? This is where the second section comes in; 

Section 2: The Relocate Section 

This section points out to the linker which instructions need to be 
adjusted during the address relocation process. If, for example, the 
instruction JSR $0073 is flagged by this section and the linker 
decided to relocate the code to base address $1153, then the 
instruction will be changed to JSR $11c6. If the JSR were not 
flagged by this section, if would remain JSR $0073. 



The Transactor 



36 



March 1988: Volume 3, Issue 05 



This seclion consists of a list of addresses (as offsets from $0000) of 
instructions thdt need fheir operands relocated. The iength word 
indicates how many addresses (of two bytes each) are in (his 
seel ion - 



Section 3: The Global Section 

This secfion tells the linker what the module has to offer to other 
moduies. Any functions or variables that may be used by external 
routines are flagged in this section. 

The length word indicates how many entries are in this section. 
Each entry w^il contain a name or identifier, a byte flag, and an 
address. 

The name wiil be the one or more characters by which this variable 
or routine can be accessed. Remember that C is case sensitive and 
that identifiers coming out of the C compiler will be truncated lo 8 
characters. Terminate the name with a NULL (chrf 



The byte flag tells the linker whether the entry is referring to a 
location in the code section or an absolute location. If the byte is a 
one, then the linker will know that it is referencing the code section 
and will adjust the address when the code section is relocated. A 
zero tells the linker that the address does not need to be relocated (it 
may be pointing to a ROM routine or some other stable location). 



Section 4: The External Section 

This seclion is sort of the opposite of the global section, [( tells the 
linker what external routines and variables are needed by this 
module. It contains entries similar to those in the global section. 
Each entry consists of the name of the routine or variable to link in, 
a word specifying how to link it in (offset), and the address of the 
instruction accessing the external entity. 

The word following the name allows several possibilities for linking 
in the address of the external entity. First of all, it allows you lo link 
in the address of the entity, the address plus one. the address plus 
two, etc. You can add up to 8 1 91 bytes to the address. Secondly, you 
can decide to either link in the whole address (for absolute instruc- 
tions such as LDA xxxx) or just the high or low byte of the address 
(for immediate instructions such as LDA *<xxxx or LDA *>xxxx). 

The way lo specify these options is to take the number of bytes you 
want to add to the base address and multiply by four (to shift it into 
the upper H bits). Then you add 0, 1, or 2 depending on whether 
you want the whole address, the high byte, or Ihe low byte 
respectively. The resulting value would go in this offset word. 



Finistiing up 

To finish up the object file, just terminate it with two NULLs. Now 
you can give it the linker testl Beware, because the linker was 
created to link together modules created by the C compiler Since 
the linker knows what type of object files the compiler is capable of 
creating, it isn^t very error tolerant and will lock upon just about any 
irregularity. If you say there are five global entries, make sure you 
include exactly five. Make sure you terminate all identifiers with 
NULLS and the file with two NULLs. El cetera. 



Special Routines 

There are several special external routines you may need to use 
when writing code lo be linked in lo work under the C environment. 
First is the cSstart routine. This routine is included in every C 
program and is responsible for setting up the C environment. It does 
some setup work, calls the main() function, then does some clean- 
up work before returning control to the shell or BASIC, Thus, 
c$start must be the first thing lo be called. The first instruction of 
the fir.st file lo be linked in must call this routine. Bui how do you 

know which of several files will be linked in first? To solve this, theC 
compiler puis a JMP c$start instruction as the first instruction in 
every module it generates. If there is a chance that your module 
might be hnked in first, you would also want to put in a jump to the 
c$»tart external routine as the first instruction in your module. 

I 

Another important routine you will want to use is the c$funct_init 
routine. This is a routine that would be called first thing in any 
function you create. Normally, C functions call the routines C$105 
on entry and C$106 just before returning instead of c$fuiK:t_inil. 
c$ 105 copies the local variables (locations S2b-4a) and parameters 
(cassette buffer $033c-$03fb) out of the way so the space can be 
used for new variables and parameters; c$ 106 copies them in again 
upon completion of the function. These require a lot of overhead, so 
the c$funcOnit routine comes in handy for small routines that 
■will not need to use the local variable area (they can use the 
temporary locations $22-$2a and $4b-$60) and that will not call 
other routines that will use the variable area or the parameter area. 

Unfortunately, to explain C$105 and c$ 106 in more detail would 
take us out of the scope of this article and into memory manage- 
menL 

Parameter Passing 

One of the advantages of linking machine language routines 
through the object file as opposed to the SYS function is the ability to 
pass dozens of parameters. On the originating end, the values of the 
variables you are passing (or their addresses. If you are pa.ssing 
pointers) are stored in memory starting at $033c and in the same 
order as they were declared in the function descriptor. The accumu- 
lator is then set to reflect the number of bytes used up by the 
parameters, and the new function is called; it can then access the 
parameters directly from this memory. As an example, the function 
FRED {Age, Name, Weight, Height); where Age is a character 
type. Name is a pointer to an array of characters. Weigh! is a 
floating point number, and Height is an integer; would store; 

$033c - Age (one byte) 

$033d -Name (tow byte of pointer) 

$033e - Name (high byte of pointer) 

$033f -Weight 

$0340 - Weight 

$0341 - Weight KFP representation) 

$03^2 'Weight 

$0343 - Weight 

^ $0344 - Height (low byte) 

$0345 - Height (high byte) 

The accumulator would be set to 10, The called routine would 
naturally have to know what order the parameters are in and what 
type of variable each parameter is. If the called function needs lo 
return a value, it should put it back into the cassette buffer at 
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location $033c. Since the value is not written until just t>efore 
returning, you don't tiave to worry about overwriting what is 
already there. 



An Example Is Worth Two Thousand Bytes 

Inorderloclearupanyquestionsyoumaystilihave, I will present a 
practical example of creating an object file from an assembly 
languagefile. While I used PAL as my assembler, you stiould be able 
figure out how lo get your assembler to do some of the unusual 
things necessary to create an object file. Unfortunately, the current 
version of SYMASS, the PAL-compatible assembler, will not be able 
lo assemble my example because it requires assembling to disk 
(since the code is assembled to location $0000). 

Listing 2 is a Doodle program written in C. It requires four external 
routines, which it will get from Listing 1, rhe assembly language 
portion. You will have to compile the C portion, assemble the 
assembly language portion, and Ihen link them together with the 
linker. You will then have an executable program that will let you 
draw on the hires screen with the UKf^ diamond. The + . -. and / 
keys set the drawing mode lo on, off, and flip respectively. RUN/ 
STOP restores the norma! text screen and exits the program. The 
program doesn't do any boundary checking - so don't try to draw 
off the screen or you may destroy something vital! 

Listing 1 provides four functions; Clear, Plot. FastKeys, and 
SIowKeys. Clear fills any block of memory of any size with any 
byte. Plot allows you to manipulale any pixel on the graphic screen. 
FastKeys sets up an interrupt routine to speed up the keyboard 
repeal, and SIowKeys turns it off again. 

Line 5 in listing 1 opens the object file lo which it will write the 
object file. I am following a convention (which I suspect the author 
of Power C followed) of suffixing object files created from C source 
with a ,0 and object hies created from Assembly source with -OBJ, 

Lines 1 and 20 "fix" PAL so it writes the object hie correctly for our 
purposes. Normally a machine language hie begins with the object 
code origin address so that the kernal LOAD routine knows where 
to place the routine when you load it. The linker does not require 
that address and^ in fact, gets confused by it. The pokes i[i line 20 
replace Ihe two JfVlP $FFD2 instructions Ihat write the address to the 
file wilh do-nothing BIT $FFD2 instructions. If you have another 
assembler you will have to find a way to get around this problem. 
You may have to write a little prc^ram to strip the first two bytes off 
the object hie after creating it. 

Line 30 invokes PAL, and line 40 tells it to assemble lo the file 
opened in line 10, In line 50 I tell the assembler to start assembling 
to location $0000 {minus two for the length word). I then define the 
filler label xxxxxx in line 60. 1 use this label in references to 
external entities since the assembler requires something. The linker 
will fill in the correct address. Line 1 20 sets up the jump lo the setup 
routine in case this object hie is the first one to be linked in. 

Lines 100, 7010, 8020, and 9020 set up the length word for each of 
the sections. \n line 100 it is just a matter of putting the end of the 
codesectionsincelhecodestartsat $0000. The length in line 7010 
is calculated by taking the number of bytes defined in the relocate 
section, dividing by two (since the length is expressed in words 
instead of bytes), and subtracting one (to skip the length word). 



Calculating the length in the global and external sections is a little 
different. Here I use a label as if it were a variable, adding one for 
each entry, using PAL's left-arrow temporary assignment operator 
Since calculating labels happens in the first pass and Ihe code is 
written the second pass, it doesn't matter that the lines that 
increment the label (lines 8040, 8090, 8140, etc.) appear after the 
line putting the word in the file (line 8020 or 9020). 

The Clear routine is in lines 160-390 and the global entry al hnes 
8090-8120 open this routine to allow access by other functions. 
Likewise, Plot in lines 500-1010 is opened by lines 8140-8170 as 
are the FastKeys and SIowKeys routines by the entries at lines 
8190-8220 and 8240-8270 respectively. 

Notice the global entry at lines 8290-8320 and the two external 
entries at lines 9280-9360 for the irq%% rouhne. Sometimes you 
may need to access a local routine or variable in a more specialized 
way than jusl by absolute addressing. Lines 1120 and 1 140 need to 
access the local routine irqkeys by immediate addressing. The 
relocate section, however, only relocates absolute addressing in- 
structions. In order to get it to work I had to treat the irqkeys 
rouhne as an external routine. This shows thai local roulines can be 
treated as external routines if necessary. Also, I chose to add two % 
symbols to the name to ensure that it doesn't interfere if you happen 
to dehne another routine named irq somewhere else. 

In line 970 I am storing a value back into location $033c. This is to 
provide a return value so Ihat the calling routine can check the new 
state of the pixel after the Plot rouhne is called. 

In Conclusion. . , 

I would like to thank Brian Hilchie for a powerful compiler that has 
raised the productivity value of the Commodore 64 by several 
notches- Thanks also for an elegant and straightforward object 
format. But why didn't he include this information in the documen- 
tation - to allow someone to make .some money writing articles 
about it? I would suggest to Brian that, given the nature of C, 
machine language, and his specific implementation, it should not 
have been hard for him lo include a *ASM and ''ENDM set of 
compiler directives to allow inline assembly language. This would 
have made an attractive compiler virtually irresistible, I would 
recommend him adding it to a future update. After all, compared to 
writing a compiler, adding a simple assembler should be peanuts. 
He may be able to use PAL or SYMASS as a skeleton. If anyone could 
give me Brian Hilchie's address. I would like to be able to write to 
him myself. 

Those of you who want to take these ideas farther might want to 
tackle writing an assembler that would assemble source into object 
files of the type linkable by the C liEiker. You would probably need to 
add some pseudo ops like .GLOB, .EXTN, and .FUNC. 

If you want to discuss specifics for such an assembler, or have any 
questions, problems, corrections or criticisms, I would love to hear 
from you. I can be reached at the following address: 

David Godshall 
137 Wagner 
Elkhart, IN 46516 

Fido-Mail or Net-Mail can be sent to me at node 1 1 /205 - <G>o- 
shen <T>owne <C>rier. 
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Tablel.Compositionof Object Files 



Code 



Length 



6502 Instructions 



Length 

1 



Address 



Relocate 



Address 

- — I 



Length 



Global Entry 



Global : 



Global Entry 



Length 



External Entry 



External 




Composition of Gfobai Entries: 





= Address is absolute 

1 = Address is local 



Composition of External Entries: 








1 


1 


1 


1 








v 


-r 





Leftmost 14 bits 00- Absolute 

is Offset to add 01- High byte 

lo External 1 0- Low byte 

Address x 4 11- Low byte 



LUUng 1: GRPLOT.PAL 



HC 
FM 
DB 
PO 
JD 
OH 
MF 
PM 
01 
CM 
AJ 
MA 
EO 
FB 
IP 
KD 
DO 
NH 
KA 
DP 
EG 
FP 
CI 
BA 
FD 
MA 
JM 



code section 



5 open 2,8,2, ■@0:grplot.obj,s,w" 

10pal = peek{70l} + 256*peek(702) 

20 poke pal + 1 759,44 : poke pal + 1 764 ,44 

30 sys 700 

40 .opt o2 

50 "--2 

60 xxxxxx = 

89 

97 

98 

99 

100 

110; 

120cslart 

130; 

131 ;1unction: 

132 ;'Clear(Address,Length, Byte; 

133 ; "unsigned int Address; 

134 ;"unsigned int Length; 
135; 'char Byte; 
136;" 
137; -global: 

138;" unsigned int Address; 
139; 

140 address wordSeOOO 

150; 

160 clear =• 



.word creloc 



jmp xxxxxx 



NN 
DJ 
CB 
CI 
MK 
JB 
DK 
JO 
DH 
JE 
GF 
DJ 
CN 
NF 
KM 
CJ 
LH 
FJ 
JL 
FE 
IF 
ML 
JL 
Lfvl 
FA 
NF 
AM 
EL 
BN 



165extn2 

170 

ISOrlod 

190 

200 

210rloc2 

220 

230 

240 

250 

260 

270fioop1 

280 

290 

300 

310 

320 

330 

340 floop2 

350 

360 

370 

380 

390 fexit 

399; 

400grrows 

410 

420 

430 



jsr 

Ida 

sla 

sta 

Ida 

sla 

sta 

Ida 

Idy 

Idx 

beq 

sta 

dey 

bne 

inc 

dex 

bne 

Idy 

cpy 

beq 

sta 

iny 

bne 

rts 



xxxxxx 

$033c 

! address 

$22 

$033d 

!address+1 

$23 

$0340 

#$00 

$033f 

floop2 

($22),y 

floopi 
$23 



fioopl 
#0 

$033e 
fexit 
(522). y 

floop2 



;<addr 

;>addr 

;byle 
;>lenglh 



a 

;page 

;filf many 
; pages 



;<length 



part 
;of a page 



The Transactor 



^word 0, 320, 640, 960,1280 

word 1600,1920,2240,2560,2880 

, word 3200,3520,3840,4160,4480 

word 4800,5120.5440.5760,6080 
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AA 


440 .word 6400,6720,7040,7360,7680 


PC 


1110 sei 






HD ■ 


449; 


IJ 


1 120 extn4 da #<irqkeys 






AP 


450 orbits .byte 128,64,32,16,8,4,2,1 


FC 


1130 sta $0314 






Ml 


460andbits .byte 127,191,223,239 


IK 


1 140 extnS da #>jrqkeys 






FL 


470 .byte 247, 25 1,253, 254 


KD 


1150 sta $0315 






AG 


490. 


1 


GB 


1160 cfi 






Al 

1 


491 


; function: 


OH 


1170 rts 






JL 


492. 


,' charPor(x,y) 


Jl 


1299; 






NE 


493; 


;■ unsigned int x,y; 


GB 


1300irqkeys =-* 






EG 


494; 




FE 


1310 Ida #$01 






FG 


495; 




KA 


1320 sta $028b 






AH 


500 plot = * 


FF 


1330 Ida #$00 






DD 


505 extn3 jsr xxxxxx 


PB 


1340 sta $0280 






MJ 


510 Ida $033e ;y coord 


PG 


1350 jmp $ea31 






CC 


520 Isr a 


EG 


1390; 






iMC 


530' Isr a 


EA 


1391 , function: 






IE 


1 

540 and #254 ' 


MG 


1392;" SlowKeysO 






FP 


^ 550 tay 


HO 


1393; 






LD 


560 rloc3 Ida grrows.y 


;get row 


IG 


1400sowkey ==* 






AG 


570 cic 


,and add 


LB 


1410 sei 






Fl 


580 rloc4 adc faddress 


.bitmap 


HD 


1420 Ida #<$ea31 






PL 


590 sta $22 


; address 


BF 


1430 sta $0314 






MP 


600 rloc5 Ida grrows + T ,y 


HE 


1440 Ida #>$ea31 






ND 


6l0rloc6 adc !address+1 


GG 


1450 sta $0315 






DD 


620 sta $23 


CE 


1460 cil 









630 Ida $033c ;x coord lo 


KK 


1470 rts 






GK 


640 and #o/o11111000 

J 


OD 


1480 








CA 


650 adc $22 


AD 
CI 


6997 
6998 








ViVF I 

IF 


i 660 sta $22 


; relocate section 






BK 


670 Ida $033d x coord hi 


CD 


fiQ^P 








DC 


680 adc $23 


PA 


KJhJhDiJ L 

7000creloc =* 






JH 


690 sta $23 


ED 


7010 .word (eg obal-cre oc)>1 -1 






KF 


700 Ida $033e ;y coord 


CO 


7020; 






KO 


, 710 and #%00000111 


EE 


7030 .word rioci 






' P J 


720 tay 


AF 


7040 .wordrloc2 






MP 


740 Ida $033c ;x coord lo 


DO 


7050 ,wordrloc3 ;theaddrs 






CB 


750 and #%00000111 


BD 


7060 .wordrloc4 ;ofaf 






CM 


, 760 sta $24 


DL 


7070 .word rloc5 jnstructions 






LJ 


770 sei 


GG 


7080 word rloG6 ;accessing 






ID 


780 Ida $01 ;swapall 


FD , 


7090 .word rloo7 ;local 






HP 


790 pha ;rom/joout 


II 


7100 .word rloc8 ;vanables. 






ME 


800 Ida #$30 


EK 


7110 .wordrloc9 






HO 


810 sta $01 


OCI 


7120 .wcrdrlocIO 






LN 


820 Ida ($22),y ;check 


LD 


7130 .wordrlocll 






NL 


830 extnl Idx Ixxxxxx ;p ot type 


IE 


7140 ,wordriocl2 






AJ 


840 beq biloff ;andmodily 


CL 


7996 


L 






GJ 


850 cpx #1 pixel 
860 beq biton 


LG 
AO 


7997 
7998 








LO 


P 

; g oba section 






OE 


e/Obitflip dx $24 ;invert 
680roc7 eor !orbits,x 


NG 
LJ 


7QQQ 








^^ ■ — 

NL 


SOOOcgoba => 






DB 


890roc8 jmp pexil 


PP 


8010numgob = 






BA 


900 biton dx $24 ;pixelon 


MF 


8020 .word numglob 






EG 


910roc9 ora lorbits,x 


EN 


8030; 






AJ 


920 roc 10 jmp pexit 


JB 


8040 numgob_ numglob + 1 






LJ 


930bitoff dx $24 ;pixeloff 


FO 


8050 ,asG "Address". .bylO 






LK 


940roc11 and !andbits,x 


IL 


8060 .byt 1 






Jl 


950 pexit sta ($22),y ;replace 


KG 


8070 .word address 






Bl 


960roc12 and lorbits,x ;byteand 


GA 


8080; 






ML 


970 sta $033c ; return 


LE 


8090numgob_numgob+1 






FP 


980 pla :bit state. 


EL 


8100 .asc "Clear'.. bylO 






DB 


990 sla $01 :restore 


KO 


8110 ,byt1 






FD 


1000 cJi ;io/roms. 


Al 


8120 .wordolear 






ON 


1010 rts 


ID 


8130; 






IL 


1090; 


NH 


S140numgob_numgob+1 






N 


1091 ; function: 


KG 


8150 .asc"Pot":.bytO 






AA 


1092;' FastKeysO 


MB 


8160 bytl 






LL 


1093; 


DG 


8170 .word plot 




1 OA 1 llOOfastkey =* 


KG 


8180; 




The Tronsactor 40 


March 19B8: Volume 8, 


. Issue 05 



PK 


8190numglot 


t_numgfob + 1 


ED 


6200 


.asc"FaslKeys":.bylO 


OE 8210 


.bytl 


JD 


8220 


.word fast key 


MJ 


8230; 




BO 


8240numgob 


i_numglob + 1 


J 


8250 


.asc "SlowKeys'i.bytO 


Al 


8260 


.bytl 


JJ 


8270 


.word slowkey 


OM 


8280; 




DB 


8290numglob 


i_numglob + 1 


FJ 


8300 


.asc"irq%%":.bytO 


CL 


8310 


.bytl 


NN 


8320 


.word irqkeys 


AA 


8330; 




KJ 


8996 : 




AA 


8997 ; 




HM 


8998 ; external section 


CA 
DP 


8999 ' 




9000 cextern 


= ti 


KO 


9010numext 


= 


BG 


9020 


.word numext 


ML 


9030; 




BE 


9040 numext 


_ numext + 1 


BE 


9050 


,asc*c$startV.bytO 


JC 


9060 


.word 


Nl 


9080 


-word cstart 


P 


9090; 




NH 


9100numext 


_ numext +1 


EL 


9110 


.asc"PlotType":.bytO 


FG 


9120 


,word 


LK 


9140 


.word extnl 


ED 


9150; 




JL 


9160numext 


_ numext + 1 


CO 


9170 


,asc"c$funct[]inif:,bytO 


BK 


9180 


word 


JO 


9200 


.word extn2 


AH 


9210; 




FP 


9220 numext 


_ numext + 1 


OB 


9230 


.asc "cStunct ]init":.bytO 


NN 


9240 


,word . 


HC 


9260 


.wordextnS 


MK 


9270; 




BD 


9280 numext 


_numext + 1 


DH 


9290 


.asc ■irq%°/o'..bylO 


NB 


9300 


.word 2 


LF 


9310 


.word extn4 


ON 


9320; 




DG 


9330 numext 


_ numext +1 


FK 


9340 


.asc'irq%%":.bytO 


NE 


9350 


,word 1 


P 


9360 


.word extnS 


El 


9998; 




'db 


9999 


.word ;done! 


Listin 

u 


g2:DOODLEX 


doodle, c 




by David Godshal 




charPoiType, 




main () 




1 

char -Pointer, Key, Store!, Store2, Store3; 


uns 


;igned inl Loop, X 


, Y; 



highmem (OxCCOO); 



J 



Pointer = 
♦Pointer 
Pointer - 
•Pointer 
Pointer = 
Stores = 
• Pointer 



■- OxDDOO; 
= (Storel 
^OxDOII; 
= (Store2 
: 0x0018; 
■Pointer; 
= 0x38, 



= 4 



■= 4 



Pointer) & 252; 

/' Turn on Graphics 

Pointer) 132; 



•/ 



Pointer = 0xO2aa; 
• Pointer = 128; 
FastKeys]); 

Clear (OxCCOO, 1000,93); 

Clear (OxEOOO. 8000, C); 

RotType = 1; 

X = 160; 

Y = 100; 

Plo1(X,Y); 

while ((Key = waitkey()) ! = 3) 

{ 

switch (Key) 

{ 

case 'V : 

case 'I' 



/•Turn on key repeat 



•/ 



/' Clear cdour screen 
/' Clear bitmap 



•/ 



case 'm' 
case 'M' 



case'j' 
case 'J' 



case 'k' 
case 'K^ 

case '-' 



case ' + ' 



case '1' 



PloT(X,-^Y); 
break; 

Plol(X,+ + Y); 
break; 

Plot (— X.Y); 
break; 

Plot(+'i-X,Y): 
break; 

PlotType = 0; 
PloI(X,Y); 
break; 

PlolType= 1; 
Plot (X, Y); 
break; 

PlotType = 2; 
P10t[X,Y); 



/• Allow user to draw lines • 
/- by using the I, J, K, M * 

/"diamond. -, +, and /set * 
/" clear, set, or flip mode • 
/-respectively, STOP exits • 



SlowKeysO; 



Pointer = 
• Pointer 



Pointer = 
-Pointer 
Pointer - 
•Pointer 



OxDDOO; 
= Storel; 

OxDOIl; 
= Store2; 

0x0018; 
= Slore3; 



/- Restore Text mode 



#define GETIN 0xFFE4 

char a, X, y. 

-numkeys - 198; 

/• Waits fof user to press a key */ 

inl wailkey 



{ 



while ('numkeys == 0) 

svs(GETlN,&a, &x, &y); 
return a; 



} 
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Maintaining the 
POWER C Library 



Eric Giguere 
Waterloo, ON 



. . Jt would be easier, I thought, if f could somehow include 
my own routines into the standard library. . . 



The Power C compiler for the Commodore 64 is one of the best 
software investments 1 have ever made. Although the Commo- 
dore 64 is not the best development tool for programming in C, 
Brian Hiichie's compiler functions better than [ expected any C 
compiler to do. As a result, [ have been constanlly using it over 
the past few months, slowly building up a library of routines for 
my personal use. Unfortunately, this was a problem in itself: I 
really hated having to manually link in my own library routines. 
It would be easier, 1 thought, if I could somehow include my own 
routines into the standard library (built-in functions) provided 
with the compiler. After a bit of research, I realized how 
ridiculously easy this would be, and proceeded to write up a 
short library maintenance program. 

Library Structure 

Included on the system disk that comes with the compiler are 
three library files. Each library file is a simple sequential tile 
consisting of sets of two ASCII strings separated by null charac- 
ters (ASCII 0). Each set consists of a function name (significant to 
eight characters) and the filename of the object file that function 
is to be found in. The linker uses these files to link the proper 
object modules with your own programs. The three libraries (all 
suffixed with a M* on the disk) are: 

syslib routines for the compiler's own internal use 

stdlib the standard library as described in the Power C manual 

math math routines 

I don't recommend altering the first library in any way, but the 
other two are fair game. Since the structure of a library file is so 
simple, adding a function to a library is really a matter of 
appending two strings to the end of the library hie. Program 1, 
the Updater, does just that. It adds a function to the specified 
library file. If, for example, you wish to add the function 'poke", 
found in "poke.obj", to the library file "stdlib", you would simply 
type in the library name, the function name^ and the filename. 
The program automatically adds the required M" and ".obj" 
suffixes to the library name and the filename and proceeds to 
add the function to the library. 

Creating a New Library 

The Updater program was an easy way for adding functions to a 
library file, but 1 soon realized that it would be useful to make 
other changes as well. Many of the files that are included on the 



library disk are not used often enough in my programs to 
warrant Ihe space they take up on the library disk. I decided that 
it would be useful to take the stdlib file and remake it to best suit 
my own needs. Program 2, the Library Editor, is another simple 
program to do just that. 

When creating your own library you have two choices: modify 
the existing stdlib file or create your own library file. Creating a 
new stdlib hie is very simple. First, copy the old stdlib file onto a 
fresh diskette. You might also want to copy the linker program 
itself onto that disketlt;. Then load up the Library Editor pro- 
gram. Use option L to load in the stdlib file. Then use the view 
option to examine the hie. Choose which functions you wish to 
delete and use the D option to delete them (one at a time, by 
function name). When done, use the A option to add your own 
functions. Then save the file back onto the diskette with the S 
option. To complete the new library, quit the editor and copy all 
the necessary object files onto the new library diskette. You 
might want to add another option to the library editor lo print out 
a list of all the filenames required just to keep track of things. To 
use the new library, just make sure your new library disk is in 
the drive when you link in the library by pressing the up-arrow 
key. It's as simple as that. (By the way, don't forget to copy the 
syslib file and its hies over to the new library disk as well.) 

Making your own library file is just as simple. First, do the 
following: 

open 1,8,5,"0:mylib.l,s,w' 

closel 

(Of course, you can use any name you want instead of "mylib' - 
just don't omit the "J '.) This creates an empty library file with the 
specified name. Then use the updater program to add the 
required information to the file. When you are linking, simply 
type the library name (again, don't forget the '.!' suffix) and the 
neededhlesfromthat library, if any, will automatically be linked. 
Then continue with the linking process as usual. 

Final TSotes 

Keeping your own personal library helps to streamline the 
compilation process, and thus saves both time and frustration. 
While this article was concerned primarily with the Power C 
compiler, the general methods 1 used can also be applied to 
other compilers and machines, although their library schemes 
may be a lot different. 
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Listing 1: Library Editor 



HN 
FC 
EK 

BD 
JD 

NC 
LC 
KE 

CK 

Di 

FH 

HB 

FJ 

GN 

CB 

CP 

DB 

IN 

OF 



10 rem c-power library editor 
20 rem 

30 rem by eric giguere 

40 rem 

50 poke 53280, 14: poke 53281, 1 

60 max = 200: dim fc$(max), fl${max) 

70nu$ = chr$(0} 

80 open 15,8,15 

100 print chr$(14)"[clr][blue]C Library Maintenance 

, — by Eric Giguere"; 
110 print 

120 print '[down] [black][A]dd a function' 
1 30 print '[down] [Djeiete a function* 
1 40 print "[down] [L]oad a library" 
1 50 print "[down] [SJave the library" 
160 print "[down] [Q]uif 
170 print "[down] [V]iew the library" 
180 print "[down] Please select: ";: gosublOOO 

: print c$: itc$ = "q"then end 
190 if cSor then 350 

200 print ■[clr][down] Library name: ";: gosub 1010 
210lib$ = left$(in$, 12) + M': n = 0: a$= " 
220 open 2,8.5, ■0:" + lib$ + \s,r" 
230 gosub 1 500: ff e then 1 550 
240 print "[down] loading "JibS;'. . ." 

250get#2,b$:ifb$<>"andst = 0thena$ = a$ + b$ 

: golo 250 
260 if stOO then 300 
270 n = n + 1 : fc$(n) = a$: a$ = " 

280get#2,b$:ifb$<>"andst = 0thena$ = a$ + b$ 
: goto 280 

290fl$(n)=a$:a$ = ":ifst = 0then250 

300 close 2: goto 100 

350ifc$<>"s"then450 

360 if n = then 100 

370 print '[clr][dawn] Are you sure? (y/n) '; 

: gosub 1 000: if cSO'y" then 1 00 
380 print c$: pnnt "[down] Saving "ilibS;", . ." 
390print#15,"s0:' + lfb$ 
400 open 2,8,5, '0:- + lib$ + ".s,W: gosub 1500 

: if e then 1550 
410fori = 1 ton 

420pnnt#2,fc$(i);nu$;fl$(i);nu$; 
430 next: close 2 goto 1 00 
450Jfc$<>"v"then550 
460 if n = then 100 

470 print ■[clr][down] Function[8 spcesjFilename" 
480 print 
490fori = 1 ton 

500 print ■■;fc$(i);tab(17);fl${i} 
510 wait 197,64: next 

520 print "[down] Press a key. , , ";; gosub 1 000 
: goto 1 00 



KC 
JP 
FC 
GO 
FF 
JN 
PD 
BA 
HH 
IF 
DO 
AE 
IN 
LP 
FJ 
KC 
IK 

PG 
HO 
GF 

LE 
CG 
CA 
PB 
JG 
JO 



550ifc$<>"a"then650 

560 if n = then 100 

570 print "[clrndown] Add a fLinction" 

580 print "[down] Function name: ";: gosub 1010 

590 n = n + 1 : fc$(n) = left$(in$, 8) 

600 print "[down] Filename: ";: gosub 1010 

610fl$(n) = left$(in$, 12)-+-Vobj' 

620 goto 100 

650ifc$<>"d"then 100 

655ifn^0then100 

660 print ■[cfr][down] Delete a function" 

670 print "[down] Function name: ^: gosub 1010 

680fc$ = left$(in$, 8):j = 

690fori = 1 ton:iffc$ = fc$(i)thenj = i:i = n+1 

700 next: ifj = then 100 

710 if j = n then n = n-1: goto 100 

720fori=j + 1 ton:fc$(i-1) = fc$(i);fl${l-1) = fJ$(i) 

: next: n = n-1 
730 goto 1 00 

999 end 

1000 poke 198,0: poke 204, 0: wait 197,64.64 
:getc$: poke 204, 1; return 

1010 open 1,0: input#1, in$: closel: print: return 

1 500 input#1 5,e,e$: if e<20 then e = 

1510 return 

1 550 print '[clr][down] Disk error — #";e 

1560 print ■[17spcs]";e$ 

1570 close 2: close 15: end 



Listing 2: Updater 



AE 
CD 
AP 
GE 
KL 

FH 

BE 

NH 

GG 
10 
01 
KK 
IF 
JA 

EG 
AK 
BE 



10 rem c-power library updater 

20 rem 

30 rem by eric giguere 

40 rem 

50 print "[clr] [down] insert your library disk into 

drive 0" 
60 print '[down] Library name: ";: gosub 1000 

:lib$ = left$(in$, 14) + M- 
70 print '[down] Function name: ';: gosub 1000 

:fc$ = left$(in$, 8) 
80 print "[down] Filename: ";: gosub 1000 

:fl$ = left${ln$, 12) + Vobj" 
90 print "[down] Updating MibSi", . ." 
100open2,8,5,"0:" + lib$ + \s,a" 
110pnnt#2,fc$:chr$(0); 
120print#2,fl$;chr$(0); 
130 close 2 
140 print "[down] Done. Another function? {y/n) '; 

: gosub 1000 
150ifleft$(in$, 1) = "y*then70 
160 end 
1 000 open 1 ,0 inputtfl ,in$: close 1 : print: return 
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A Better Syntax 

For Kernal Device I/O 



Keath Milligan 
Austin, Texas 



. , . Countless times I have watched my second drive collect dust 
because programs simply wouldn 't talk to it. 



Compared to other operating systems in its class, the C-64's 
■'Kernal" offers quite a bit of I/O power to the user. However, it 
does have quite a few shortcomings, one of them being the way 
it references the different devices. 

The Problem 

t 

Most operating systems expect the device number (and some- 
times other informalion, depending on the system) to be part of 
the filename. For instance, a PC user might use: 

LOAD"B:BEEPBOOP.BAS- 

to load up his favourite music program. Note that there is no ",8" 
or anything equivalent. But take a closer look at that hlename. 
The device(in this case, disk drive Bj is specified right there with 
the filename. The Amiga uses the same method as the PC, but 
with different device names. 

This method gives users of these systems quite a bit of choice 
when they are asked for a filename. For instance, if a program 
running on a PC asks for a filename, the user can usually 
respond with any valid device name or filename, thus giving 
him the choice of any of the devices connected to his system. 

The 64 user, on the other hand, could only give the filename, 
and the program would probably default to drive 8. Countless 
limes I have watched my second drive collect dust because 
programs simply wouldn't talk to it. 

Actually, Commodore DOS does have this sort of filename 
syntax for specifying drives, but it applies to only the drives in a 
particular disk unit- If you have a single drive unit, like the 1541, 
this DOS feature is mostly useless, so the unfortunate 64 user is 
out of luck again. 

The Program 

Obviously, the more standard method of "devicename:filename" 
is superior to the syntax used on Commodore's 8-bil machines. It 
gives the user access to all the devices connected to the com- 
puter and does not require extra programming effort. 



Luckily for us. Commodore did have a few good ideas, and one 
of their best was the use of page 3 vectors. By intercepting some 
of these vectors it's possible to change the way the Kernal 
communicates with devices. The program accompanying this 
article uses this method to give the 64 a variation of the same 
sort of device/file name syntax used by MS-DOS and Amiga- 
DOS. 

To install the new filename parser, run the BASIC loader. The 
parser can be located at any even page boundary, i.e, any 
address that is evenly divisible by 256. Note that the loader 
doesn't change any of the BASIC memory pointers, so if you 
wish lo locate the code at an address in the main memory area 
(2048-40959), you'll have to adjust the pointers accordingly to 
prevent BASIC from overwriting the code. The enhanced syntax 
can be disabled by simply pressing RUN -STOP/ RESTORE. 

Now you can reference devices by using the general syntax of 
^D\ T' or '"^' followed by the device number followed by a colon 
in front of the filename. For example: 



■D9:FILENAME" 

specifies a file on device 9. {'D\ V and ^*' 
interchangeably) 



can be used 



Secondary addresses can now be specified from within the 
filename as well. To do this, follow the device number with a 
comma followed by the secondary address. For example: 
'*8.2:F1LENAMEV This can most useful for printer files. 

The filename is optional, so the printer and other devices can be 
referenced easily. Examples: T4.7:". ''0:', 

Note the colons, which must be present even though the 
filenames are missing. You should also be aware that device 
numbers and secondary addresses specified in this manner will 
take precedence over those specified outside the filename. 
^ Ttui»k of the device numbers and secondary addresses specified 
within the filename as adjustments lo those specified outside the 
filename. For instance, 



The Transactor 



March 1988: Volume 8, Issue 05 



LOAD-D8:F1LENAME-,0,1 



is equivalent to 



LOAD-FILENAME', 8.1 



and 



OPEN 1,8,8, ■P4,7;- 



is equivalent to 



OPEN 1,4,7 



The 'D' or 'P' may be specified in upper or lower case. If tfie 
parser encounters anything that it doesn't understand, it simply 
passes the entire filename untouched to the Kernal. This is to 
ensure that the parser will not interfere with disk commands 
and the like. 

With the enhancement active, you must specify any reference to 
the cassette drive within the filename: 

L0AD"#1:FILENAME- 

The enhancement defaults to device number 8. Therefore 
LOAD 'FILENAME' will look for the file on device number 8. 

Here are some examples of the enhanced syntax in use; 

L0AD-D9:F1LENAME- 

LOAD'FILENAME- {loads from device 8) 

SAVE-D1:FILENAME- 

OPEN1,0,0,'P4,27:- 

L0AD-D8,1:*' (sameas LOAD'^VS,!) 

The enhancement will also work with BASIC and some machine 
language programs so long as there are no vector or memory 
conflicts. If a BASIC program prompts you for a filename, you 
can, in most cases, use the enhanced syntax. This will allow you 
to access your choice of devices. You may have to put a quote ( ' ) 
before the filename because the INPUT statement in BASIC can't 
handle colons or commas. Try it without the quote first - some 
programs have their own improved input routines. 

This enhanced parser might work well in a module for a 
TransBASlC dialect. Commands such as DIR or BLOAD could be 
written that would no longer have to look for device numbers. 

Listing 1 : BASIC Loader for New File Name Parser 



JB 
AP 
ON 
PB 
AA 

NK 



100 prinfstart address 49152' 

110printchr$(145);lab(13); 

120inputsa:a = sa 

130ms = int(a/256):ls-a-msf256 

140 iflsOOthenprinfmust be even page boundary' 

:end 
150readv:ifv = -1then190 



PO 

MK 

EA 

CJ 

MM 

LA 

OA 

PI 

AL 

KP 

IH 

ME 

NE 

NE 

OD 

Fl 

HP 

FO 

EK 

ON 

AP 

GJ 

OH 

EH 



01 

GJ 

BN 

IH 

FB 

Gl 

CA 

GA 

PC 

KN 

FE 

PJ 

KF 

NP 

GF 

JG 

NG 

LC 

EG 

AE 

FC 

MK 

BM 

01 

JH 

DA 

PG 

LM 

DP 

MO 

FK 

GO 

JD 

AC 



160ch = cfi+v 

1 70 if(v = 1 92)or(v = 1 93)thenv = v-1 92: v - v + ms 

180 pokea,v:a = a+ 1:goto150 

190 ifch<>43286th en print "ctiecksum error':end 

200 prinfenhanced filename syntax enabled.' 

210 sys sa 

220 print 

230 prinfto change default device use: ' 

240 prinf poke';sa+ 134;',device' 

250 end 

260: 

270data169, 31,160,192,141, 26, 3.140 
280 data 27, 3,169, 37,160,192,141, 48 
290data 3,140, 49, 3,169, 45,160,192 
300 data 141, 50, 3,141, 51, 3, 96, 32 
310data 51,192, 76, 74,243, 72, 32, 51 
320 data 192, 104, 76,165,244, 32, 51,192 
330data 76,237,245,165,187,141, 21,193 
340data165, 188, 141, 22,193, 165,186, 141 
350data 39,193,165,185,141, 40,193,165 
360data183, 141, 42,193, 32, 20,193,201 
370 data 35,240, 8,201, 68,240, 4,201 
380data 80,208, 32,162, 0,141, 41,193 
390data 32, 20.193,141, 43,193,201, 58 
400 data 240, 34,201, 44,240, 30,201, 48 
410 data 144, 9,201, 58,176, 5,232,224 
420 data 3,208, 15,165,183,240, 10,165 
430 data 186, 201, 1,208, 4,169, 8,133 
440 data 186, 96,208,212,224, 0,240,235 
450 data 165, 187, 141, 21, 193, 165, 188, 141 
460data 22,193,165,183,141, 42,193, 32 
470 data 20,193,173, 21.193,133, 3,173 
480data 22,193,133, 4,138, 32, 44,193 
490data176. 48,165, 5,141, 39,193, 32 
500 data 20,193,201, 58,240, 6,201, 44 
510data240, 35,208,243,173, 21,193,133 
520 data 187, 173, 22,193,133,188,173, 42 
530data193, 133, 183, 173, 40,193, 133, 185 
540 data 173, 39,193,133,186,201, 1,208 
550data 1, 96, 76,123,192,162, 0,173 
560data 21,193,133, 3,173, 22,193,133 
570data 4, 32, 20,193,201, 58,240, 14 
580 data 232, 224, 4,240, 8,201, 48,144 
590 data 4,201, 58,144,236, 96,138,240 
600data252, 32, 44,193,165, 5,141, 40 
610data193, 76,196,192,173,255,255, 41 
620 data 127, 238, 21,193,208, 3,238, 22 
630 data 193, 206, 42,193,201, 0, 96, 
640 data 0, 0, 0, 0, 1 41 , 1 23, 1 93, 1 69 
650data 0, 168, 174, 123, 193, 133, 5, 133 
660data 6, 24, 32, 85,193,176, 21,177 



670 data 3, 41, 15, 24,101, 5,133, 
680 data 144, 5,230, 6, 56,240, 5, 
690data200,202, 208, 230, 
700 data 6, 176, 28, 165, 
710 data 72, 6, 5, 38, 
720 data 5, 38, 6,176, 
730data133, 5, 104,101, 
740 data 104, 104, 96, 0, 



96, 6, 5, 
6, 72,165, 
6,176, 17, 

11,104, 101, 
6,133, 6, 

-1 



5 

24 

38 

5 

6 

5 

96 
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Listing 2: PAL Source for New File Name Parser 


FL 


1570 Ida fnlen 






DL 
DH 


1 580 sta ctr 
1590 jsr getfchr 


JL 


1000sys700 


MC 


1010; 


»■*♦******♦ t********************** 


FE 


1600 cmprr 


JL 


1020; 


* fi e-spec parser * 


EG 


1610 beq checkfn 


MA 


1030; 


.^ sep21, 1987 version 1.0 * 


ML 


1620 cmp#'d- 


KD 


1040; 


V «• 


D 


1630 beq checkfn 


EB 


1050; 


• keathmilligan • 


EP 


1640 cmp#-p" 


NC 


1060; 


* 11 909 swan drive • 


JK 


1650 bne chkdev 


BH 


1070; 


* austin.tx 78750 * 


DA 


1660 checkfn Idx #0 


KK 


1080; 


* (512)331-8451 * 


NM 


1670 sta tdname 


MH 


1090; 


*4E4#*]k****«*«>k*>f:*«=4r:t1f^###=##%^*>K#?4'# 


LD 


1680getnext jsr getfchr 


CM 


nop; 




JE 


1 690 sta tsep 


MM 


1110; 




00 


1700 cmp#':' 


M 


1120. 


opt 00 


JG 


1710 beq fnok 


AO 


1130: 




IN 


1720 cmp#-,- 


MB 


1140fnlen = $b7 


NH 


1730 beq fnok 


BP 


1150 a = $b8 


IP 


1740 cmp#'0- 


MA 


neosa = $b9 


EO 


1750 bcc chkdev 


EB 


11 70 fa = Sba 


DD 


1760 cmpr9"+1 


FC 


llSOtnadr = $bb 


ID 


1770 bcs chkdev 


NH 


1 1 90 aptr = $03 


AN 


1 780 inx 


L 


1 200 bptr = $05 


NF 


1790 cpx #3 


AD 


1210; 


FN 


1800 bne gnext 


KO 


1220 Ida #<openbp 


NF 


1810 chkdev Ida fnen 


AF 


1230 dy #>openbp 


ML 


1820 beq parsex 


DM 


1240 sta 794 


GF 


1830 Ida fa 


AD 


1250 sty 795 


CG 


1840 cmp#1 


00 


1260 Ida #<loadbp 


FM 


1850 bne parsex 


EF 


1270 dy #>oadbp 


MM 


1860 da f8 ;detaut drive 


CO 


1280 sta 816 


ML 


1870 sta fa 


PE 


1290 sty 817 


KC 


1880 parsex rts 


JB 


1300 da #<savebp 


BE 


1890 gnext bne getnext 


PH 


1310 dy #>savebp 


AE 


1900 fnok cpx #0 ;# of digits 


AB 


1320 sta 818 


CM 


1910 beq chkdev 


MB 


1330 sta 819 


DC 


1920 Ida nadr 


IC 


1 340 rts 


FM 


1 930 sta Inptr + 1 


ML 


1350; 


DE 


1940 Ida fnadr+1 


MK 


1360 openbp sr parse 


LN 


1950 sta fnptr + 2 


PG 


1370 jmp $f34a 


LD 


1960 da fnlen 


KN 


1380; 


JD 


1 970 sta ctr 


ND 


1390loadbp pha 


GF 


1 980 ;get pointer on device number 


GK 


1 400 jsr parse 


DA 


1 990 jsr getfchr 


KA 


1410 pla 


NM 


2000 da fnptr + 1 


MM 


1420 jmp $f4a5 


FK 


2010 sla aptr 


MA 


1430; ^ 


DO 


2020 Ida fnptr + 2 


GO 


1440savebp jsr parse 


FM 


2030 sta aptr + 1 


MA 


1450 jmp $f5ed 


MK 


2040 txa 


KG 


1460 




GM 


2050 jsr asc2wor 


PK 


1470 


;*'* parse routine ••* 


NK 


2060 bcs passit 


OD 


1480 




PH 


2070 da bptr ;device number 


OP 


1490 parse Ida fnadr 


JM 


2080 sta tdev 


HB 


1500 sta fnptr + 1 


OF 


2090 iloop jsr getfchr i 


FJ 


1510 Ida fnadr + 1 


NO 


2100parsec cmp#":" 


NO 


1 520 sla f nptr + 2 


ML 


2110 beq finishfs 


KC 


1530 da fa 


IG 


2120 cmp#',' 


NK 


1 540 sta tdev 


KC 


2130 beq chksa 


LE 


1550 Ida sa 


D 


2140 bne loop 


LH 


1560 sta tsa 


ED 


21 50 finishfs Ida fnptr + 1 
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BF 


2160 sta fnadr 


ED 


2750; 




JH 


2170 Ida fnptr + 2 


OD 


2760: 




BH 


2180 sta fnadr + 1 


JE 


2770 asc2wor sta dec en 




HN 


2190 Ida ctr 


HM 


2780 da #0 




JG 


2200 sta fnen 


FL 


2790 tay 




HM 


2210 Ida tsa 


HF 


2800 dx declen 




HC 


2220 sta sa 


GM 


2810 sta bplr 




BC 


2230 Ida tdev 


NF 


2820 sta bptr+1 




OC 


2240 sta fa 


E 


2830 cic 




MP 


2250 cmp #1 


AC 


2840 asc2wor1jsr bylO 


;mutiply by 10 


OF 


2260 bne passit 


FC 


2850 bcs asc2worx 


;cs- overflow 


KM 


2270 rts 


KA 


2860 da (aptr),y 




AH 


2280 passit jmp chkdev 


JO 


2870 and #%00001111 1 


DH 


229achksa dx #0 


GL 


2880 cc 




JP 


2300 Ida fnptr+1 


KM 


2890 adc bptr 




BN 


2310 sta aptr 


AC 


2900 sta bptr 




PA 


2320 Ida fnptr + 2 


CO 


2910 bcc asc2wor2 




BP 


2330 sta aptr + 1 


DK 


2920 inc bptr + 1 




EB 


2340csaoop jsr getfchr 


DP 


2930 sec 




IH 


2350 cmp#-:' 


LH 


2940 beq asc2worx 


;eq - overflow 


EL 


2360 beq csaout 


EF 


2950 asc2wor2:lc 




OB 


2370 inx 


AH 


2960 iny 




NK 


2380 cpx #4 


BF 


2970 dex 




DK 


2390 beq csaerr 


NE 


2980 bne asc2wor1 




M 


2400 cmp#'0" 


FC 


2990 asc2worxrts 




JH 


2410 bcc csaerr 


OC 


3000; 




HM 


2420 cmp#'9'+1 


LH 


3010 ; bylO-multipy by 10 




AJ 


2430 bcc csaloop 


CE 


3020; 




MC 


2440 csaerr rts 


LK 


3030 bylO asl bptr 


;x2 


ED 


2450 csaout txa 


EF 


' 3040 rol bptr+1 




JO 


2460 beq csaerr 


NN 


3050 bcs bylOr 


;cs-overfow 


KG 


2470 jsr asc2wor 


PA 


3060 Ida bptf+1 




OD 


2480 Ida bplr 


KH 


3070 pha 




NB 


2490 sta tsa 


GJ 


3080 Ida bptr 




GG 


2500 jmp finishifs 


01 


3090 pha 




EE 


2510 ; 


OG 


3100 asl bptr 


;x2 


KK 


2520 getfchr = - 


KJ 


3110 rol bptr+1 




EF 


2530fnptr Ida $ffff ;dummyaddr 


JC 


3120 bcs bylOx 


;cs - overt ow 


MK 


2540 and #%01 11111 Imask high-bit 


Ml 


3130 as bptr 


;x2 


DB 


2550 inc fnplr + 1 


IL 


3140 rol bptr+1 




OB 


2560 bne gfc 


HE 


3150 bcs bylOx 


;cs-overf ow 


JC 


2570 inc fnptr + 2 


AO 


3160 pa 




LB 


2580 gfc dec ctr 


CO 


3170 adc bptr 




OE 


2590 cmp #0 


ID 


3180 sta bptr 




EB 


2600 rts 


OP 


3190 pla 




K 


2610; 


Nl 


3200 adc bptr+1 




EF 


2620 tdev .bytO 


DO 


3210 sta bptr+1 




10 


2630 tsa .bytO 


EF 


3220by10r rts 




OA 


2640tdname .bytO 


CD 


3230 by 1 0x pa 




BG 


2650 ctr .bytO 


AD 


3240 pla 




DK 


2660 tsep .bytO 


OJ 


3250 rts 




EO 


2670 




CD 


3260; 




CL 
PN 


2680 
2690 


;* convert decima asciiloword * 


GO 


3270 declen bytO 








GK 


2700 


i* ,a = length of string * 






JH 


2710 


;* aptr points to string • 






DG 


2720 


;* ret-bptr = 16 bit word * 






MK 


2730 


;* cs = error, cc = ok • 






00 


2740 


1 ****#***■♦■»;;«#****•■***■♦■#». ****»***#* 
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A RAM Expansion 
Module Bug 



D. J. Morriss 
Toronto, Ontario 



. . . Under the wrong conditions, the bug 
configures the C-128 memory in unexpected ways. . . 






Asubllebug exists in the C-1 28 Kernal routines for accessing the 
RAM Expansion Module, as found in the Version ROM's 
(Listing 1). Under the wrong conditions, the bug configures the 
C-128 memory in unexpected ways, before transferring data to 
or from the RAM Expansion. Part of the bug has been corrected 
in the new Version 1 ROMs, and a software patch for Version 
ROMs is supplied in this article. However part of the bug is still 
present, and indeed, seems to be an essential part of the 
operation of the RAM Expansion. 

As a result of this bug, any particular RAM Expansion operation 
runs a small chance of accessing the C-128 Bank 15 configura- 
tion, no matter what configuration has been chosen. It doesn't 
matter whether the configuration has been set by the BANK 
command from BASIC, or by M/L operations on the Memory 
Management Unit. To the extent that Bank 15 differs from the 
chosen configuration, the RAM Expansion operation will cause 
one of several problems. If the bug acts during a STASH, the 
wrong data will be placed in the RAM Expansion. If the bug 
strikes during a FETCH, the data will be sent to Bank 15, and 
lost. In addition, it could overwrite important locations in Bank 
15, crashing the system. 

I encountered the bug while writing a BASIC program to sort a 
double sided disk full of strings; many more than could be 
loaded into the C-128 at one lime. The brute force technique I 
used was to read as many strings as possible into the C'128 
memory, sort them using a machine language routine, and then 
temporarily store the sorted strings in a bank of the RAM 
expansion. 1 stored the strings individually, using a routine like 
this: 

10DEFFNDK{X) = PEEK(X) + 256*PEEK(X+ 1) 



100 BANK 1; SLOW 
110FORK=1 TONS 
120J = P01NTER(A$(K)) 
130STASHNL. FNDK(J + 1),NL*(K-1),BK 
140 NEXT K 

where NS is the number of sorted strings in memory. NL is the 
length of a string (all the same), and BK is the number of one of 
the 8 RAM expansion banks- 



The program continued loading and sorting portions of the total 
list, and STASHing them in different banks of the RAM expan- 
sion until the last string was read from disk. Then the sorted 
subsets were merged into a single, sorted, disk file by first 
FETCHing the first siring from each RAM expansion bank used. 
The smallest of these was written to disk, and replaced by 
FETCHing the next one from that RAM expansion bank. The 
smallest was again written and replaced, and so on. This 
continued until the last string was read from each RAM expan- 
sion bank and written to disk. 

This process required some preliminary work. To allow the RAM 
Expansion to access the C-128 Bank \ , it was necessary to set Bit 
6 of $D506- This is the Ram Configuration Register of the 
Memory Management Unit (MMU). This also makes the 40 
column screen useless. The second problem is that the Kernal 
DMA CALL routine needlessly insists on configuring memory to 
make the I/O block from $D000 to $DFFF visible before 
accessing the RAM Expansion (this has been changed in the 
Version I ROMs}. Since any strings stored in Bank 1 in this 
address range would be invisible to the RAM Expansion, I 
lowered the lop of the string pool (in $39 and $3A) to below 
$DO0O. 

When i tested the program on a file containing fifteen thousand 
strings, ten characters long, I discovered that a tiny fraction of 
the sorted strings were corrupted when they came back from the 
RAM expansion. Naturally, this ruined the merging process. In 
fact, the strings were changed into chunks, ten bytes long, from 
the C-128 ROM's! I determined that the strings were corrupted 
on STASHing, and that the pieces of ROM that replaced the 
strings came from the same addresses as the strings that were 
corrupted. The STASH command was executing perfectly, ex- 
cept that it was STASHing from Bank 1 5, instead of Bank 1 ! 

It was a stroke of pure luck that I was able to discover this. As 
you would expect, trying to interpret pieces of ROM as strings 
leads to a mess of graphic, cursor control and screen color 
characters. But one of the strings that showed up corrupted 
turned out to be part of the list of BASIC commands, and another 
came back as "STRiNG TOO'; part of one of the BASIC error 
messages! i knew that these strings came from the ROMs, and it 
was easy to use the MONITOR HUNT command to show that all 
the corrupted strings were sections of ROM, 
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There was no pattern to the corruption. Repealed runs on the 
same data produced different corrupted strings each time. Only 
a few, maybe two to five, were corrupted each time, but that was 
more than enough. During a short vacation trip, I left my C-12S 
working away, STASHing and FETCHing for 80 straight hours. 
The result was 630 STASH failures in 3,512,380 STASHes, This 
works out to a failure rate of 1 in 5575! 

When (examined the various parts of the C-1 28 ROM's involved 
in the RAM Expansion commands, i found the cause of the 
problem. To understand the bug, you need to know a little about 
the operation of the RAM Expansion itself. 

The RAM Expansion module contains its own computer, the 
Ram Expansion Controller (REC). As computers go, the REC is 
not too bright. All it does is move bytes. It has an instruction set 
of four commands! On the other hand, it is very good at what it 
does, moving bytes much faster than lheC-128CPU can. So, to 
operate the RAM Expansion, the C-128 first loads the REC 
registers with information about the location and number of 
bytes to be transferred, tells the REC Command Register, at 
SDFOl, what to do, and then getsout of tht? way. The REC takes 
over, moves the data, and then returns control to the C-128. For 
a complete listing of all the REC registers, see the Transactor 
article ^'Commodore External RAM Expansion Cartridges'', by 
Dale A. Costello, Vol ^^8, Issue -2, page 38. 

However, the complex memory configurations of the C-128 
presented a problem. To tell the REC to take over, you must load 
a value into the REC Command Register at $DF01. Clearly, to do 
this the 1/0 block must be visible. But suppose the memory you 
want to move is in some other bank. If you can see the REC, the 
REC can't see the memory to be shifted. If the REC can see the 
memory to be shifted, you can't tell the REC to operate. The chip 
designers got around this by coming up with a delayed action 
feature. In effect, you can store a value in the REC Command 
Registt?r which says, 'Here's what \ want you to do. and 1 want 
you to do it after the next write to address $FF00'. This address 
is a shadow register for the MMU Configuration Register (the 
Configuration Register is not the same as the RAM Configura- 
tion Register!). Writing a value there will configure memory in 
any fashion you want. With this feature you can instruct the 
REC, and then rearrange memory, before the REC takes over. 

One last point. If you are going to start changing memory 
configurations in the middle of a M/L program, you better bt? 
sure that the program will still be there when the new configura- 
tion arrives. So this part of the program must be in the common 
RAM, from $0000 to $0400, which appears in all memory 
configurations. With this information firmly in mind, let's take a 
look at the disassembly of the various routines that manage the 
RAM Expansion, in Listing 1. 

The BASIC routine, starting at $AA1F, evaluates the parameters 
of the BASIC command, and puts them in the appropriate REC 
registers from $DF02 to $DF08. It also places a number, $84, 
$85, or $86 in the Y register This number is destined to be 
stored in the REC Command Register. Apart from telling the 
REC to STASH, FETCH or SWAP in Bits and 1 , these numbers 



all have Bit *7 set and Bit *4 cleared, setting up the delayed 
action feature. A curious point is that the three numbers have Bit 
2 explicitly set. Bit 2 of this register is listed as reserved for future 
use. Finally, the number of the bank you want to access is stored 
in the X register, and the routine jumps to $FF50. This would 
also be the appropriate entry point for any M/L use of the RAM 
Expansion. 

This location is the entry point for the DMA-CALL routine in the 
New C-12S Kemal Jump Table. As such, it simply jumps directly 
to the actual routine, at $F7A5 in Version ROMs. 

At $F7A5, the routine gets, from a table, the MMU Configuration 
value corresponding to the bank to be accessed by the REC. This 
value is then modified (Bit "0 is cleared) to create a new 
memory configuration in which the 1/0 block is visible. There is 
no need to do this. Possibly this code was written before the 
delayed action feature of the REC was created. This new MMU 
Configuration Register value is then unnecessarily copied to the 
X register, and the routine jumps to the RAM portion in the 
common RAM at $03F0- And now the bug is about to be 
activated. 

The RAM routine first stores the current MMU Configuration 
Register value in the X register. The f^C Command Register 
value, patiently waiting in the Y register, is finally stored in the 
REC. THE REC IS NOW PRIMED AND READY TO OPERATE 
AS SOON AS A WRITE OCCURS TO $FFO0. Naturally, the next 
command writes the altered MMU Configuration Register value 
lo $FFOO, reconfiguring memory according to the last BANK 

command (sort oO and triggering the REC operation. After the 
REC is finished, the old MMU Configuration register value is 
restored, and the routine exits to BASIC. So where's the bug? 

Consider what happens if (make that "when") an Interrupt 
ReQuest occurs during the four machine cycles of the STY 
$DFOi at $03F3. The STY SDFOl instruction is completed, and 
the REC is still primed and ready to go. But the IRQ routine takes 
over, and now the REC is triggered by a STA $FFOO instruction, 
at $FF22 in the IRQ handling routine. The value stored is zero, 
and memory is configured for Bank 15 during the REC opera- 
tion. The delayed action feature is cleared by the REC after its 
operation, so that when the STX $FFO0 at $03F6 is executed 
after the IRQ, no REC operation results. 

The REC operation that occurs uses all the correct addresses, 
RAM Expansion bank, and number of bytes; these were stored 
in their registers earlier The 'only' error is that the transfer takes 
place to/from Bank 15, rather than the desired Bank. 

The IRQ occurs 60 times a second; with a 1 MHz clock there is 
approximately I chance in 4167 that an IRQ will occur during 
the four cycles of the STY $DF01 command. The observed rate 
of 1 in every 5575 is almost exactly 75 % of this theoretical rate- 
Perhaps the danger zone includes only three of the four machine 
cycles. Placing responsibility for the bug on the timing of an IRQ 
also explains the apparent random nature of the bug. The ugly 
iact remains that about one in every 5000 Ram Expansion 
operations, on a random basis, is compromised. 
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There are several solutions. By far the best is to buy the ROM 
Upgrade Kit for the C-128. The ROM routines for the Ram 
Expansion access have been changed (see Listing 2) to eliminate 
niany of the problems. The 1/0 block is no longer activated every 
time, and the IRQ is masked to avoid the bug entirely. In addition, 
there is no need to modify the RAM Configuration Register 
yourself, if you are accessing Bank 1. The code from $CF80 to 
$CF8E saves the old value of this register, checks the Configura- 
tion Register table to see if your last BANK command used RAM in 
Bank 1, and modifies the FtAM Configuration Register to suit; the 
original value is restored after the REC has acted. This means that 
the 40 column screen can be used while accessing Bank 1 with 
the RAM Expansion. The only sign of what is going on is a flicker, 
as the RAM Configuration Register is momentarily changed. 
There are other fixes as well, to many parts of the ROMs. 

If the new ROMs don't appeal to you. there is a partial software 
fix. Fortunately, the problem is in a RAM routine only 13 bytes 
long. The cure involves adding a PHP and a SEI command at the 
beginning and a PLP command at the end. and there are three 
unused bytes at the end of the faulty routine! I added these three 
commands to the RAM portion of the DMA CALL routine, and 
eliminated the string corruption completely (see Listing 3). This 
short program could be entered using the built in Monitor 
assembler, and then BSAVEd; 

BSAVE BO/your name*. P1 008 TOP1023 

BLOADing this binary file before any RAM Expansion opera- 
tions would fix the bug. The I/O block would slill be visible all 
the time; that part of the problem is in ROM. 

Part of the problem has not been solved. Exactly the same bug 
will be triggered by a Non Maskable Interrupt. Since a NMI, by 
definition cannot be masked, there is no way to prevent the bug 
from striking. It is inherent in the delayed action feature of the 
REC. While NMls are rare in ordinary programming, they are 
the heart and soul of RS-232 communications on the C-128- 
Reliable use of the RAM Expansion for other than Bank 15, 
during RS-232 communications, would appear to be difficult, if 
not impossible. This might not be as big a problem as it looks. 
Bank 15 uses RAM from 'Bank 0" from $0000 to $4000. This 
includes the RS-232 buffers, the VIC text and bit-mapped screens 
and the large Applications Area from $1300 to $1C00. All of 
these can be moved bug free to and from the RAM Expansion 
during RS-232 operations. Any other areas should be moved 
into one of these areas, before being sent to the RAM Expansion, 

One point is clear from the disassembly of the BASIC routine. 
The order of the arguments is the same for the STASH, FETCH, 
and SWAP commands, and that order is number of bytes to 
move, start address in C-128 memory, start address in RAM 
Expansion memory, and bank number in RAM Expansion. 
Several references give the order of these arguments incorrectly, 
listing the RAM bank number as the third argument and the 
RAM Expansion address as the fourth. A possible explanation 
lies in the fact that two Commodore references, while giving the 
correct syntax of the commands, list the arguments in a different 
order when defining them. 



As far as 1 know, this is the first published discussion of this 
potentially serious bug. Since Commodore knew about the bug. 
and prepared new ROMs that correct it, their silence on the 
matter is troubling to those of us with Version ROMs and a 
RAM Expansion. 

Listing 1 

COMPLETE STASH/FETCH/SWAP ROUTINE 

F 

VERSION ROMS 



aa1f Ida 


#$84 


;STASH entry - NOTE - 


aa21 jmp 


$aa2b 


; -all numbers with 


aa24 Ida 


#$85 


;FETCH entry - bit 7 set and 


aa26 jmp 


$aa2b 


; -bit 4 c ear 


aa29 Ida 


#$86 


;SWAP entry 

;put future REC command register 


aa2b pha 


1 


;valueon stack 


aa2c jsr 


$8812 


;eva uate three parameters 


aa2f jsr 


$a845 


;of BAStC command 


aa32 sty 


$df07 


;and store in 


aa35 sta 


$df08 


;the proper REC 


aa38 jsr 


$880f 


; registers. 


aa3b jsr 


$a845 




aa3e sty 


$df02 




aa41 sta 


$df03 




aa44 jsr 


$880f 




aa47 jsr 


$a845 




aa4a sty 


$df04 




aa4d sta 


$df05 




aa50 jsr 


$8809 




aa53 cpx 


#$10 


; branch if error 


aa55 bcs $aa65 


;in parameter evauation. 


aa57 jsr 


$a845 


;eva uate last parameter 


aa5a stx 


$df06 


;and store in REC 


aaSd pla 




;recover future REC command register 


aa5e tay 




;value and store in Y register 


aa5f Idx 


$03d5 


;get BANK command value into X reg 


aa62 jmp 


$ff50 


;go to Kernal jump table 


aa65 jmp 


$7d28 


;parameter error routine 



ffSO jmp $f7a5 ;jump table entry 

f7a5 Ida $f7f0,x ;get MMU configuration value from 

table based on BANK value in X reg 
f7a8 and #$fe ;modlfy it to enable I/O 
f7aa tax ;copy to X register (WHY??) 

f7ab jmp $03f0 ;jump to RAM portion of routine 



03f0 Idx SffOO 



03f3 sty SdfOI 



03f6 sta SffOO 



OVERWRITE X register with current 

MMU configuration value 

store Y register to REC command 

register- REC primed 

store new MMU configuration value 

AND trigger REC operation 
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STASH/FETCH/SWAP takes place 



03f9 stx $ffOO ;restore MMU configuration register 

value 
03fc rts ;a[l done so back to BASIC 



Listing 2 

COMPLETE STASH /FETCH/SWAP ROUTINE 

VERSION 1 ROMS 
{BASIC routine from $AA1 F to $AA65 unchanged) 



ff50 jmp $ct80 ;nate new jump table destination 



cfaO Ida $d506 

cf83 pha 

cf84 eor $f7f0,x 

cf87 and#$3f 

cf89 eor $f7fO,x 

cf8c sta $d506 

ct8f Ida $f7fO,x 

cf92 tax 

ct93 php 

cf94 sei 

cf95 jsr $03f0 

cf98 pip 

cf99 pla 

cf9a sta $d506 

cf9d rts 



03f0 

03fl 

03f2 

03f5 

03f8 

03fb 

03fe 

03ff 



;get RAM configuration value 
;and stack it 
;set Bits 7 and 6 of RAM 
;Con(iguration Register to 
;reflect Bank command value 

;get Configuration Register value from 

table 

;againWHY? 

;save status, including interrupt 

;SET INTERRUPT MASK 

;note JSR, nolJMP 

;restore previous interrupt status 

;pull old RAM Configuration register 

;vafue and store 

;done, so back to BASIC 



03fO fdx $ffOO 

03i3 sty $df01 

03f6 sta $tfOO 

03f9 stx $ffOO 

03fc rts 



;sameasin 
.Version 



;NOT to BASIC! 



Listing 3 



NEW RAM DMA CALL ROUTINE 



php 
sei 

Idx SffOO 
sty $df01 
sta SffOO 
stx SffOO 
pip 
rts 



FOR VERSION ROMS 

;new command 
;new command 
;all moved two bytes 
;higher in memory 



YOU CAN HAVE IT ALL 

THE CONVENIENCE OF A CARTRIDGE! 

THE FLEXIBILITY OF A DISK! 

THE QUICK BROWN BOX stores up lo 30 of your favorite 
programs - Basic & M/U Games & Utilities, Word Processors 
& Terminals - READY TO RUN AT THE TOUCH OF A KEY 
- HUNDREDS OF TIMES FASTER THAN DISK - Modify 
the contents instantly. Replace obsolete programs, not your 
cartridge. Use as a permanent RAM DESK, a protected work 
area, an autoboot utility. C-64 or C-128 mode. Loader Utili- 
ties included. Price: 16K $69 32K $99 64K $129 (Plus $3 S/H; 
MA res add 5%) 30 Day Money Back Guarantee. 1 Year War- 
ranty. Brown Boxes, inc. 26 Concord Road, Bedford, MA 
01730; (617) 275-0090 




THE QUICK BROWN BOX - BATTERY BACKED RAM 
THE ONLY CARTRroCE YOU'LL EVER NEED 



SUPER 81 UTILITIES 



Super ei Utilities is a complete uiifiiies package toi the 
CDmmodore 1561 Disk Drive and 0128 computer. Copy whole 
disks or individuai files from 1541 or 1571 lormat to 1581 
partitions. Backup 1581 disks. Contains 1581 Dish Editor, 
Drive Monitor, RAM Writer, CP/M UlOities and more fo^ only 
S39.95, 



1541/1571 DRIVE ALIGNMENT 



1541/1571 Drive AJignmenl reports the afignmenl condition of 
the disk drive as you perform adjustments. Includes features 
for speed adjustment and stop adjustment Incfudes program 
disk, calibration disk and mstruction manual. Works on C64 
C12e. SX64, 1541, 1571. Only J34.95, 



it 



;new command 



...excellent, elfici&nt program that can hetp you save both 
money antftfowfT/z/rre. Computers Gazette. Dec, 1987. 



GALACTIC FRONTIER 



Exctting space expiomiion game tro the C64. Search for life 
forms among the 200 billion stars m our galaxy. Scientifically 
accurate Awesome graphics' For the serious student of 
astronomy or the causal explorer who wants to boldly go 
where no man has gone before Only $29.95. 



MONDAY MORNING MANAGER 



Statistics-based baseball game. Includes 64 aH-lime great 
major league teams. Realisitc strategy. Great sound & 
graphics! Apple II systems S44.95. C-64 5 Atari systems 
-S 39.95- 

Order with check, money order, "VISA. MasLerCafd, COD. Free 
shipping & handling on US, Canadian, APO, FPO orders, COD 
& Foreign orders add $4.00. Order from: 

Free Spirit Software, Inc. 

905 W, Hillgrove, Suite6 
LaGrange, IL 60525 

(312)352-7323 





MoiitfCwd 



y 
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Commodore 128 
Machine Language 



Steve Punter 
Mississauga, ON 



.The 85 JO processor, which is really o 65 10 with the newest 
iteration of Commodore's memory management added, 
can only address 64K at any one given moment. . . 



if you do most of your CI 28 programming using a high level 
language, like BASIC, you generally don't need to concern 
yourself with such trivialities as memory management. On the 
other hand, anyone who has delved into the machine language 
side of the CI 28 knows only too well that the memory layering 
used in this machine is not the easiest to work with. Drawing on 
my experience programming WordPro 128, I would like to 
impart tu you some of the programming techniques I used, in 
hopes that they mighl come in handy. 

I start out assuming that you have a reasonable understanding of 
the CI 28 and its inner workings, for 1 can't afford to go into the 
intricate detail needed to explain all of this to a rank beginner. 

Before we begin, let's look at how Commodore has arranged the 
128K of RAM and the 48, or so, kilobytes of ROM, 

The 8510 processor, which is really a 6510 with the newest 
iteration of Commodores memory management added, can 
only address 64K at any one given moment. To allow it access to 
the huge amount of RAM and ROM, selected portions of this 64K 
address space are set up in such a way that they can be told to 
access one of a variety of items. Think of each of the 4 sections of 
this 64K memory space as being 4 different elevators in a small 
building. Each can be independently moved to any floor of the 
building, allowing a variety of different combinations of access. 

I'm not going to deal with the INTERNAL and EXTERNAL ROM 
sockets here, so the only three things concerning us which can 
appear in these memory segments are the first 64K of RAM, the 
second 64K of RAM, or the 48K of system ROM. in addition to 
that, there is also a small section of I/O space, which can be 
selectively brought in, or moved out. 

The two 64K RAM spaces are called banks; bank being ihe 
first 64K, and bank 1 being the second G4K. In addition to this, 
varying amounts of memory, ranging from none, on up to 32K, 
can be declared as "common". This refers to the fact that 
regardless of which of the two RAM banks you are in, access to 
the common area will always give you bankO RAM. This sort of 
addressing is advantageous in that coding w'hich must be 
available AT ALL TIMES can reside there. 



When first considering the arrangement of WordPro 128, I was 
stuck with the prospect of having the text in one bank, and a 
multitude of buffers in the other Linking all that together, I had 
to have code which could run in EITHER bank, and here is 
where the deficiencies of the CI 28 MMU start to show. 

Although routines are supplied in ROM to fetch or store data into 
either bank, they become unacceptably slow when called re- 
peatedly. The 2Mhz mode of the CI 28 can help mask some of 
this inherent slowness, but in such applications as word process- 
ing, the speed problem is rather acute. 

After much thought on the matter, a number of programming 
criteria became clear: Number one, ALL 64K of the addressable 
memory space should be, by default, RAM. Number two, the 
code must exist in both banks, with each bank of code accessing 
and manipulating the data stored there. And number three, the 
code must be able to call routines in the alternate bank without 
any difficult coding needed at the place of the subroutine call. 

Each of these three criteria brought about unique, though 
curiously related, solutions. The first problem concerns the 
switching in of ALL RAM, Immediately, two difficulties arise; 
interrupts and KERNAL calls. The interrupts have been thought- 
fully taken care of for us, and require no special care, but 
KERNAL calls are a different matter. No program can operate 
without making calls to the KERNAL. for even printing to the 
screen, or fetching from the keyboard, requires it. To make 
KERNAL calls, we would need to switch in the appropriate ROM 
before the call, and switch it out afterwards. This is not accept- 
able, as it gets very messy and complicated. If we just leave the 
KERNAL switched in ail Ihetime, we loose immediate availabil- 
ity of 16K of RAM, and must resort to switching that in and out 
every time we need it. 

Clearly a belter solution was needed; one which would give us 
immediate access to either the KERNAL or the RAM without 
having to actively switch it in or out. Although this sounds like a 
case of "wanting your cake and eating it too", there is a simple 
answer- All that is required is about 200 byles at the top of each 
64K RAM bank, and two small subroutines in the common 
memory area. 
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The Invisible KERNAL 

The first step to creating an invisible KERNAL is to write a fairly 
short set of subroutines into your program. The two subroutines 
are as follows: 



1 


Subroutine * 1 






H kerncall 


sta 


safe oc 


1 




pa 




W 




sta 


safeloc + 1 


1 




pla 




w 




Ida 


#>kefnback-1 




# 


ptia 








Ida 


#<kernback-1 






pha 








Ida 


#$ff 






pha 








da 


safefoc + 1 






sec 








sbc 


#3 


M 




pha 




H 




da 


JffOO 


H 




sta 


bankhod 


B 




Ida 


#$0e 


H 




sta 


$ffOO 


H 




Ida 


safeloc 


■ 




rts 




■ 


Subroutine * 2 






H 


kernback 


. pha 




■ 




da 


bankhold 


■ 




sta 


SffOO 


K 




pla 




^H 




rts 





At the very beginning of your program, a routine should be 
included which will store, into each 3 byte location from $FF81 
through $FFF3. a call to subroutine ''KERNCALL", The follow- 
ing routine will do just that: 

setkern jsr setkerni 
setkernl Idy #$81 
kerm Ida #$20 



sta 

iny 

Ida 

sta 

iny 

Ida 

sta 

iny 

cpy 

bne 

Ida 

eor 

sta 

rts 



$ffOO,y 

#<kerncaH 
$ffOO,y 

#>kerncatl 
$ffOO,y 

#$f6 

kerni 

$tfOO 

#%01 000000 

SffOO 



This rather odd structure, calling a subroutine IMMEDIATELY 
after itself, is just a quick and dirty way of having the routine 
execute itself twice. Note the at the end of each call, the RAM 
bank is "flipped'\ causing not only both banks to be processed, 
but the bank to return to its original stale. Note also thai tliis 
routine MUST reside in the common area also, else it will "bank" 
itself out, and crash the machine. 

Now that all this is done, you can safely make ANY KERNAL call 
in complete confidence that the KERNAL ROM, as well as the 1/ 
space, will automatically be swapped in and out for you. But 
how does it all work? 

Let's follow the path of seemly innocent "JSR FFD2" call from 
within our running program. First of ail, the return address of 
our original call is pushed onto the stack, tfien execulion is 
transferred to location $FFD2. At this location, a JSR KERN- 
CALL is encountered, causing ihe return address of this subrou- 
tine call to pushed on the slack on top of the previous one. The 
interesting thing to note about this return address is that it's 
EXACTLY two higher than the desired KERNAL call, and is a 
key factor to how the KERNCALL subroutine works. 

Upon entering the KERNCALL subroutine, the accumulator is 
put safely away in a location called "SAFELOC". then the first 
byte is pulled off the stack and saved away in a location called 
''SAFELOC -»- 1 ". This first byte from the stack is actually the low 
order part of our second return address, the one which is exactly 
two higher than our desired KERNAL call ($FFD2 in this 
example). The next byte off the stack is merely thrown away. It 
represents the high order part of the return address, but will 
always be $FF, and so we need not waste any time, or memory 
space, storing it. 

Next, we push the address of our second subroutine onto the 
stack in place of the original one that was generated when the 
JSR KERNCALL call was made. The purpose of this exercise is to 
cause the RTS within the KERNAL subroutine itself to transfer 
execution there, so that RAM may be restored. With me so far? 

The next step involves the pushing of yet a third subroutine 
return address onto the stack, but the purpose of this is to use an 
RTS like a JMP INDIRECT. In other words, we now wish to set up 
a stack configuration that will cause an RTS to transfer execu- 
tion to the desired KERNAL subroutine. First, we push (he high 
order part of the address, which, as was noted earlier, isolujays 
an $FR After that, we recall the low order part of this address 
and subtract three from it. Why three? After all, I did say that 
this address was exactly Ovo higher than the desired KERNAL 
call. It's done simply because the address stored on the stack for 
an RTS is always one byte lower than the address at which 
execution actually begins. 

Now we are ready to bank in both the KERNAL ROMs and Ihe 
I/O space, but before we do that, a copy of the current memory 
configuration is saved in a location called "BANKHOLD". A 
value of $0E is then stored in the memory configuration register, 
and an RTS is executed. Since we have previously pushed the 
appropriate address onto the stack, the RTS causing execulion to 
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go directly \o the KERNAL call we originally made, or $FFD2 in 
this case. Just before the RTS is executed though, the value of 
the accumulator is restored so that the proper value is passed to 
the KERNAL routine. 

Once the KERNAL subroutine has finished doing whatever it is 
that it's supposed to do. its RTS causes execution to be transfer- 
red to our "KERNBACK" routine. The reason for this is that we 
delit>erately pushed this return address onto the stack for this 
very reason. KERNBACKs purpose is very simple; it merely 
restores the memory configuration register to its former value (as 
saved in the just before jumping to our desired KERNAL call). 
The accumulator is appropriately saved so that KERNAL rou- 
tines which pass values out are not disturbed. 

As the RTS of KERNBACK is reached, execution is passed back 
to the code immediately after the actual KERNAL call (our 
$FFD2 example). Although the process may seem complicated, 
it's not hard to see how it does let you have your cake and eat it 
to. 



Multiple BANK Coding 



hinted at earlier, the solution is very similar to the one used to 
leave the KERNAL ROM banked out until needed. The solution 
to this second problem starts out with a jump table to alt the 
necessary routines at the beginning of each of the two 48K 
banks of non-common RAM. The trick to all of this lies in what 
we put at each of the jump table locations. 

If the routine represented by a particular jump table location 
resides in the current bank, then a simple JMP to it is used. 
Should it reside in the other bank, a JSR call is placed there to a 
routine very much like the one used to bring in the KERNAL 
ROM. If this sounds a little complex, let's take a small example. 
There are four subroutines, called ''SUB1'\ ''SUB2^ "SUBS" 
and "SUB4''. Subroutines 1 and 2 are in bank 0, while subrou- 
tines 3 and 4 are in bankl. This is how the four jump table 
locations would appear at the beginning of each bank: 

• In BANK 0: 

jmp subl 

jmp sub2 
sub3 jsr swapbank 
sub4 jsr swapbank 



The second major problem was to design a system whereby a 
single program could exist in two separate banks of RAM. This 
presents a problem that is very similar to the KERNAL routines, 
and is solved in much the same way. 

Before you can begin to write such a program though, certain 
basics must be considered, and a "game plan" must be formu- 
lated. There are three distinct areas of memory in which your 
program code will reside: common RAM; bank RAM; and 
bank \ RAM. Whal goes where, and how much common RAM 
to assign, is what we have to decide. 

In WordPro 128, it was deckled that the text would reside in 
bank I, while all other necessary buffers and strings would be 
placed in bank 0. Since it was desirable to maximize the amount 
of text, code in bank 1 had to be kept to a minimum. Bank 1 
would obviously contain code which only made direct refer- 
ences to text. 

Bank could contain just about everything else, with the 
exception of two special cases: routines which were called quite 
often from code in both bonks; and routines which made 
reference to both text AND buffers. This code will have to go in 
the common area. 



*InBANK I: 

subl jsr swapbank 

sub2 jsr swapbank 

jmp sub3 

jmp sub4 

Were a routine in bank 10 cair'JSR SUB!" or ''JSR 5UB2". they 
would branch directly there as if no banking existed- A routine 
in bank 1 calling "JSR SUB3" or "JSR SUB4" would have the 
same effect. But, a routine in bank calling "USR SUB3" or "JSR 
SUB4'\ or a routine in bank leaning "JSR SUBI" or "JSR SUB2" 
would be directed to the "JSR SWAPBANK" call in the jump 
table. SWAPBANK is very much like KERNCALL, but it swaps 
around which of the two non-common banks of RAM are 
currently active, then jumps back to the same location in the 
jump table (just like the KERNCALL routine). Now that the bank 
has been switched, it runs into the appropriate JMP instruction, 
rather than the JSR SWAPBANK. 

Of course, while in this alternate bank subroutine, a call bacfi to 
the original bank might be made, so a '*stack" of return "banks" 
must be implemented so that each subroutine is returned to it's 
correct bank. 



Since WordPro 128 is a huge program, it was decided that the 
bottom 16Kof RAM would be deemed common, leaving 48K in 
each of the banks for other purposes. Your applications may not 
call for such a large expenditure of common RAM. How much 
you need is not something I can tell you in this article, it's really 
a matter of looking at your needs and deciding for yourself. 

Since common code will reside from $0000 to $3FFF, bankable 
RAM begins at $4000. All that is left now is to work out a way of 
allowing routines in one bank to call routines in the other. As 1 



Here are the two subroutines involved in this task: 



Subroutine "^ 1: 



swapbank sta safeloc 

tya 

pha 

Idy bankpnt 

Ida $ffOO 
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and #$fe 


sta 


bankstak.y 


inc 


bankpnt 


pa 




tay 




pa 




sbc 


#3 


sta 


safeloc -+■ 1 


pa 




sbc 


#0 


sta 


safe oc + 2 


Ida 


#>bankback-l 


pha 




Ida 


#<bankback-1 


pha 




Ida 


safeloc + 2 


pha 




Ida 


safeloc + 1 


pha 




da 


SffOO 


eor 


#%01 000000 


sta 


SffOO 


Ida 


safeloc 


rts 





Subroutine * 2: 

bankback php 

pha 

tya 

pha 

dec bankpnt 

Idy bankpnt 

Ida SffOO 

and #$0T 

ora bankstak,y 

sta $tfOO 

pla 

tay 

pla 

pip 

rls 

When a routine makes an alternate bank call, the return address 
of the subroutine is pusfied onto the stack, then execution is 
transferred to the jump table, where a JSR SWAPBANK call is 
made, thus pushing the return address of this routine onto the 
stack also. As with the KERNCALL routine, this address is 
exactly two higher than that of the jump table address just 
referenced. Execution now branches to the SWAPBANK routine 
in common RAM, at which point, the accumulator is saved in 
"SAFELOC. The Y-register is pushed onto the stack so that its 
value is preserved while we push the memory control register 
onto our special "bank stack". 

Once the bank has been pushed on our stack, the Y-register is 
restored, and the next two bytes are pulled from the stack. As 
previously noted, they contain a pointer to the appropriate jump 



table location, but two higher. Subsequently, three is subtracted 
from this 16 bit value and the whole thing is stored in "SAFE- 
LOC+r' and "SAFELOC + 2". The reasons for this were dis- 
cussed previously in the section on "The Invisible KERNAL". In 
place of this return address, we push the location of 
^'BANKBACK^ which, like "KERNBACK", is responsible for 
putting everything back to normal after the desired routine has 
finished. 

Next, we push the value of the jump table location (minus one) 
onto the stack so the next RTS acts like a JMP INDIRECT and 
transfers execution back to the same location in the jump table 
that we came from, only this time, the banks have been 
switched, so there will be JMP instruction there, not a JSR 
SWAPBANK. Before reaching the RTS thwigh, the appropriate 
bit in the memory control register is "flipped" so that Ihe other 
48K of non-common RAM is brought in. The accumulator is 
restored, and the RTS performed. 

Once the desired subroutine has finished, its RTS transfers 
execution to our ''BANKBACK" routine, which basically pulls 
the correct memory conhguration byte from our special stack so 
that when we return to the calling routine, the correct bank 
configuration will be in force. 

Observant readers will notice that bit of the memory configu- 
ration register is noi being saved on the special stack. This bit 
controls the existence of the I/O space, and for most purposes, 1 
decided that it would desirable to leave it unchanged so that 1/0 

control stays within the mainline coding. 

Even more observant readers will notice that the special stack 
isn't really needed, since for a routine to call this function, it 
must have been in the alternate bank. Logic would dictate, 
therefore, that to return control to the calling routine would 
require nothing more than swapping active banks again. Al- 
though this is true, the bank stack guarantees that no screw ups 
within the called routine cause the bank settings to become 
misaligned. 



Some Last Words 

Of course, Ihe two solutions I've presented here don't even 
begin to scratch the surface of what M/L in the C128 is all about, 
but they should give you a good starting place so that program- 
ming is that much easier. 

Many may argue that M/L is a dead practice, since so many high 
level languages, especially C, allow you to do almost the same 
thing with much greater ease. Although I fully agree that 
languages like C are very powerful, they simply can't match the 
grace and speed possible by writing your programs in pure 
machine language- 
Given a choice, \ usually opt for machine language, but also 
recognize that certain tasks are far more suited to a higher level 
language. Before you tackle a task in M/L on the C128, you 
should decide this too. [E 
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Auto Booting CP/M 
Programs On The C- 1 28 



Miklos Garamszeghy 

Toronto, ON 



. . . There are two methods. . . the first is fairly well known, . . 
The second is not well known at all, even to confirmed hackers. . . 



There are two ways lo auto boot applications programs, utilities, 
games, etc. on ttie C-128 in CP/M mode. The first is a fairly well 
documented feature using a special SUBMIT file. Each time CP/ 
M is started up, it looks for a file named 'TROFILE.SUB" on the 
default drive. This is a regular CP/M submit file which is 
automatically executed on start up, similar to the IBM-PC-DOS 
■AUTOEXEC.BAT" file. Unlike the IBM version, however, PRO- 
FILE.SUB requires that you have the utility ^'SUBMITCOM" on 
the same disk. This utility reads the statements in the SUBMIT 
file (standard CP/M commands or program names such as DIR 
or PIP etc) and translates them into its own executable form. 
The commands are not executed immediately, but are written to 
a temporary file called "SYSIN.SSS^ When ail commands have 
been translated and written to this file, the file is read and tfiey 
are executed. 

This brings out two limitations of the PROFILE^SUB method of 
auto booting. Because a temporary file is written to the disk, you 
cannot cover the write protect notch. The method is also quite 
slow, especially with a 1541 drive, because it involves reading 
and writing a number of disk files. In addition, since the 
PROFILE,SUB file is written in standard ASCII formal, it is very 
susceptible to prying eyes. All it takes is a 'TYPE PROFILE.SUB" 
command for some one to sneak a peak at your secret boot 
routine. Despite these limitations, you can do a very complicated 
set of star! up procedures using this method. 

The second method is not well known at all, even to confirmed 
hackers who have been using other CP/M machines for years. 
(One of the beauties of CP/M is that it is very transportable 
between machines. If it works on one machine, it will most likely 
work on other CP/M machines.) Although not quite as simple as 
using the PROFlLE,SUB file, the method allows you lo cover the 
write protect notch. In addition, you do not need any other hies 
on the disk other than the one you want to boot. It is also much 
faster, because it does not have to read and execute the SUBMIT- 
.COM program before executing the boot. The nature of the 
technique limits you to a single CP/M command in the boot 
statement, but this is sufficient to start up most programs. The 
technique involves changing a few bytes in the CPM Console 
Command Processor (CCP.COM) hie. (Because you are chang- 
ing Ihe system files, never do this on your original disks! Always 
work with a backup copy.) 



The CCP is the pari of the CP/M system which reads and 
interprets commands typed in at the console. It contains the 
code for accessing most of the built-in CP/M commands, such as 
DIR, TYPE, etc. It also loads and transfers execution to transient 
program files. Control of the system is passed to CCP.COM after 
boot up and after each command or transient program has 
finished executing. Using a debugging utility, such as SID.COM 
supplied on the CP/M 4- Additional Utilities Disk, (or the older 
CP/M debugger called DDTCOM or one of the many public 
domain utilities), load in the file with the command: 

SID CCP.COM <return> 

SID will respond with: 

NEXT MSIZE PC END 
0D80 0D80 0100 D2FF 
# 

Tfie # is tfie SID prompt. The bytes of interest start at hex 
address $0702. Use SID's display command to display the 
memory starting at that location: 

D07C2 <return> 

(note that there is no space between D and the address) 
The first line of the display should look like; 

0702:53 55 42 40 49 54 20 20 

43 4F4D1A06 4BCDF9:SUBMIT OOM 



By replacing the word SUBMIT (i,e. the bytes from 07C2 to 
07C7) with ASCII spaces (hex $20s), you can autobool a pro- 
gram file on start up. This is done with SlD's "S^' command: 



307C2 <return> 



SID responds with: 



0702 53 '6- (where -n- represents a flashing cursor) 

Type in a quote mark at the cursor followed by 5 spaces and a 
<return>: 



The Transactor 



H 



Morch 1988: Volume 8, Issue 05 



■<5 spaces> <return> 



SiD responds with: 



07C8 20 ■[> 



Type in a period followed by <return> at the cursor to end the 
substitution: 

. <return> 

SID will respond with the prompt *. 

4 

This change makes CP/M look for the file PR0FILE.COM when 
it starts up. If this file is present, it will automatically load and 
execute it. All you must do to take advantage of this is to rename 
your program to ^'PROFILE.COM'' with CP/M's 'RENAME" 
command- For example, to boot MBASIC you would use: 

RENAME PROFILE-COM = MBAStCCOM <return> 

Of course, there is nothing sacred about the name "PROFILE'*. If 
you would rather not rename your program, you can make an 
additional change to the CCP. Addresses $04FC to $0503 
contain the word "PROFILED You can change this to your 
application program name using a similar method to that out- 
lined above for erasing the SUBMIT command. For the MBASIC 
example, you would use: 



you type 
SID responds 
you type 
SID responds 
you type 
SiD responds 



S04FC <return> 
04FC 50 <> 

'MBASIC <space> <return> 
0503 2E -t> 
. <return> 



The total length of the string must be seven characters so pad 
the end of the filename with spaces. 

Once you have made all of the necessary changes, save the 
modified file back to disk with the command: 

WCCP.COM, 0100, 0D80<return> 

The 0100 and 0D80 are the hexadecimal start and end ad- 
dresses of the CCRCOf^ file as listed on the SID startup display. 
All hex addresses listed above are identical for all current 
versions of CP/M+ implemented on the C-128. 

Now press the reset buUon and watch your program boot up 
automatically! One final note. If you decide to change the boot 
file name from "PROFILE. COM" to something else, you will 
have to modify a custom CCP for each disk you want to boot. Of 
course, only one boot routine per disk is possible with this 
routine. If you format a new disk and copy the modified system 
files to it, the boot command will be totally transparent if the 
bootable file is not present on the new disk. This means that if 
the file mentioned in the boot routine is not present on the disk, 
CP/M will start up in its normal manner and end with the 
familiar A> prompL T 



New! Improved! 

TRANSBASIC 2! 



with SYMASS 






* * 





* -tr 










'\ used to be SO ashamed of my dull, messy code, but 
no matter what 1 tried I just couldn't get rid of those 
stubborn spaghetti stains!" writes Mrs. Jenny R. of 
Richmond Hill, Ontario. "Then the Transactor people 
asked me to try new TransBASlC 2, with Symass", 
They explained how TransBASlC 2, with its scores of 
tiny 'tokens', would get my code looking clean, fast! 

"1 was sceptical, but I figured there was no harm in 
giving It a try. Well, all it took was one load and 1 was 
convinced! TransBASlC 2 went to work and got my 
code looking clean as new in seconds! Now Tm telling 
all my friends to try TransBASlC 2 In their machines!" 



TransBASlC 2, witti Symass. the symbolic assembler. 
Package contains all 12 sets of TransBASlC modules 
from the magazine, plus lull documentation. Make your 
BASIC programs run faster and better with over 140 
added statement and function keywords. 

Disk and Manual $1 7.95 US, $1 9.95 Cdn- 

{see order card at center and News BRK for more info) 

TransBASlC 2 

"Cleaner code, load after loadl" 
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Clock-Calendar 128 



WUliam J. Brier 
Bensenville, IL 



<^ 1987 Bill Bri^r 



An increasingly popular accessory for personal computers is the 
Clock-Caiendar cartridge with battery backup. It is quite handy to 
have the time and date readily available when you or the computer 
wants it. However, such gadgetry requires the use of that elusive 
matter form known as money. Not surprisingly, most of us hate 
spending money {unless it's somebody else's), 

I needed some way to display the time and date on my C-12S but I 
didn't need the battery backup {or the expense). If you have read 
this far, you probably share the same needs, So, if you are wilting lo 
live without the battery backup feature and are also willing to do 
some typing, I have an inexpensive timekeeping solution for you. It 
uses some resources that all C-S28 computers are equipped with, 
namely the TOD clocks in the CIA chips. My solution is a little 
machine language utility called (oddly enough) Clock-Calendar 
128. 

Clock-Calendar 128 is a time and date utility for the C-128. Clock- 
Calendar uses the Time Of Day (TOD) clock in CIA *2 to generate an 
accurate 24 hour time output, with a resolution of one second. The 
utility also maintains a Gregorian calendar, accurate through the 
year 2099. Time and date outputs are made available for display on 
both 40 and 80 column screens and for use by other software. 

In addition lo the time and date functions, Clock-Calendar also 
features an audible alarm, which may be set to any desired time. All 
functions of Clock-Calendar are driven by interrupt requests and 
are therefore transparent to the computer's operating system and 
most software. Special software traps prevent interference with the 
C-128 screen editor when the programming considerations de- 
scribed later in this article are observed. 

It's Nol A Hydrogen Maser Standard But — 

Unlike the Tl$ software "clock'' provided as part of BASIC 7.0, the 
time output of Clock-Calendar is remarkably accurate, typically 
demonstrating a drift of less than 0.5 seconds per month. This is 
because the CIA hardware clock is synchronized to the power line 
frequency, which is carefully regulated by the utility that supplies 
electric power. 

The CIA hardware clock is initialized during the reset sequence to 
operate on a 60 Hz power line frequency (the North American 
standard). Many European and Middle East locations use 50 Hz 
power. A simple POKE (described later) can be used to program the 
CIA chip to operate on 50 Hz power 

I must caution you that batteries are not included with Clock- 
Calendar As soon as you (or the power company) shut off the C-128 
the clock vanishes into thin air (sort of the way lime does when 
you're behind schedule). 



Clock-Calendar was inspired by a program that was published for 
the C-64 by Mike Forani in Volume 5, Issue 2 of TRANSACTOR, I 
typed in Mike s program (learning something about interrupts in the 
process) and later added the calendar and alarm routines to it. When 
I acquired my C-128 I decided to port the program over, accommo- 
dating both screen displays in the process. That porhng process 
proved to be a bit of an education in itself, especially in getting the 
clock display and the C-128 screen editor to get along with each 
other, I ended up starting from scratch, although Mike may recog- 
nize a slight vestige of his original routine. In the process of doing 
this rewrite I found that a programmer's best friend is indeed the 
RESET button. 

Three Modules And No Batteries 

Clock-Calendar consists of three machine language modules {one 
main module and two setup modules}. I have this annoying habit of 
giving binary files cryptic, "computer-sounding " names that tell me 
what they are. Accordingly, I've given each of the three modules 
cryptic, computer-sounding names that will undoubtedly annoy you 
for the balance of this article: 

CLK4864 
CLK5632 
DT5632 

The CLK4864 module contains all program instructions required lo 
execute the functions of Clock-Calendar, This iEicludes time and 
date decoding functions as well as the audible alarm feature. 
CLK5632 is used to set the time of day or the alarm time, while 
DT5632 is used to set the displayed dale. The numbers in the 
filenames indicate the decimal addresses to which each file loads 
into memory. 

Because these are all binary files you must load them into memory 
with the BLOAD syntax (or L0ADTILENAME\8,1). Read on to 
discover how to get Clock-Calendar running. As you'll see. it's 
actually quite user-friendly (honest!). 

+ 

Placing Clock-Calendar Into Operation 

To activate Clock-Calendar simply BLOAD the CLK4864 module 
into memory and activate it with SYS 4897, This command will 
"wedge" Clock-Calendar into the interrupt system and the time and 
date display will appear in the upper right-hand corner of both 
display screens. 

When Clock- Calendar is placed into operation the hardware clock 
is given a "nudge ' to get it started (it initially is not running when 
the C-12S is powered up or after the RESET button has been 
pressed). Therefore, it is probable that the displayed time will not be 
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correct. Also, the displayed dale will be represented by a series of 
question marks (??-??-??) indicating that no date has been set. 

Upon activation of C lock-Calendar the default display settings will 
be in force. These are yellow display colour on the 40 column 
screen, cyan display colour on the 80 column screen and normal 
(non-reversed) video display on both screens. Provisions have been 
made to change the display characteristics to suit individual tastes. 
Such adjustments are described in a later section. 

One precaution must be noted before leaving this section. Once you 
have loaded and activated Clotk-Calendar do not repeat the load- 
ing process. Doing so will probably result in a system crash. This of 
course, will give you an opportunity to make friends with the RESET 
button, in case you haven't already done so. 

Setting The Time Of Day 

Before describing how to set the time, it is appropriate to discuss the 
manner in which C lock-Calendar displays the time. 

The time will always be displayed in the format HH;MM:SS. where 
HH is the hours representation, MM is the minutes representalion 
and SS the seconds representation. The time is kept in 24 hour or 
military format. This means that when the lime of day is 1:00 PM 
through 11:59 PM, the clock will display the time with the value 12 
added to the hours. Midnight (12:00 AM) will be displayed as 
00:00:00. The main advantage of the 34 hour time-keeping system 
will quickly become apparent: There will never be any confusion 
regarding AM or PM, 

To set the time of day, proceed as follows: 

1 . BLOAD the CLK5632 module into memory. 

2. Type SYS 5632,0. The '0' indicates to CLK5632 that you are 
setting the time of day. 

3. The C-l 28 will prompt you for the CORRECT TIME (HH:MM) and 
flash the cursor. Type in the time of day using 24 hour formal. 
Note thai you must type two digits for the hours and two digits for 
the minutes. Enter midnight as 00:00, The cursor will skip over 
the colon as you enter the time (see, I told you it was user- 
friendly)- 

4. Upon typing in the time, press RETURN to enter it or the DELete 
key to erase your input. 

NOTE: The time value that you enter must be a valid one. The hours 
value may not be greater than 23 and the minutes may not be 
greater than 59. If you don't adhere to these requirements, Clock- 
Calendar will become unfriendly and demand that you do it right. 

5. Next, the time that you have entered will be confirmed for 
accuracy. Respond to the confirmation prompt with [Y)es or (N)o. 
A (N)o terminates entry without affecting the time selling. In 
either case, control will be returned to the calling program or 
BASIC. 

Setting The Alarm Time 

As mentioned above, Clock-Calendar incorporates an audible 
alarm function. The alarm is activated when the hme of day equals 
the alarm time and the alarm enable flag (described later) has been 
set to an enable value. 



Set the alarm as follows: 

1 . BLOAD CLK5632 into memory. 

2. Type SYS 5632,1. The '1' indicates to CLK5632 that you are 
setting the alarm time. 

3. You will be prompted for the ALARM TIME (HH:MM). The alarm 
time is entered in exactly the same manner as the time of day, 

4. As with entering the time of day, responding with (N)o to the 
confirmation prompt will abort the operation with no effect on 
Clock-Calendar. Otherwise, the alarm time will be stored and the 
alarm enable flag will be set. 

Upon reaching the alarm time a "gong" will sound once every two 
seconds for a period of one minute. When the one minute period 
has elapsed the gong will silence. Unless the alarm enable flag is 
cleared, the alarm will sound at the same lime each day for as long 
as Clock-Calendar remains in operation. 

To silence the alarm and disable it, POKE 4890,129. To enable the 
alarm again so that it chimes the next day at the same time, POKE 
4896,0. 

Setting The Calendar Date 

Before describing how to set the dale, it is appropriate to discuss the 
manner in which Clock-Calendar displays the dale. 

The date is displayed in the format MM-DD-YY where MM is the 
month, DD is the day and YY is the year. If the month is January 
through September the first digit of the date will be blank. The date 
is always displayed immediately below the time in the upper right- 
hand corner of the screen. 

The date automatically changes at the stroke of midnight provided 
that Clock-Calendar is in operation. Because the calendar is main- 
tained in software the date will not change if the program has been 
disabled. 

Clock-Calendar incorporates means to detect a leap year and make 
appropriate compensation for the month of February. This compen- 
sation is accurate for ail years from 1 90Uo 2099 inclusive. Inaccura- 
cies will occur in any century year that is not evenly divisible by 
400, as Clock-Calendar does not u.se the first two digits of the year 
(for example, 1900, 2000 and 2100 are all the same to Clock- 
Calendar but only the year 2000 is a leap year). 

To change the dale, proceed as follows: 

I.BLOAD'DT5632". 

2. Type SYS 5632. 

3. The C-128 will prompt you for TODAY'S DATE and flash the 
cursor. Type in the dale as MM-DD-YY, If the month is January 
through September type a zero as the first month digit. 

4. Similarly, days one through nine and years zero through nine 
must be entered with a zero as the first digit. The cursor will 
automatically skip over the hyphens {-} as you enter the date, 

NOTE: The date value that you enter must be a valid one. The 
month must be 1 through 12, the day musi be 1 through 31 and 
must also be a valid day for the month and year that has been 
entered. For example, entering 02-29-87 would not be valid as 
1986 was not a leap year. Similarly, entering 11-31-87 would also 
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not be valid as there are only 30 days in November, 

S.Nexl, the date that you have entered will be confirmed for 
accuracy A (N)o response will simply abort without affecting the 
displayed date. 

Modifying The Clock-Calenclar Display 

As described above, Clock-Calendar has default display settings 
that determine the colour and appearance of the time and date 
display. It is possible by use of simple POKEs to change the 
appearance of the display to reverse video, to change the display 
colours or to discontinue updating of the display. These functions 
are control led 'by a group of memory locations starting at $1315 in 
RAM 0. Their functions are as follows (all location addresses are 
given in hexadecimal): 

$1315 This location is the "display flag". C lock-Calendar will 
display the time and date on the screen as long as the display flag is 
set to zero. If you wish to freeze the display POKE a 1 into this 
location- This will tell Clock-Caiendar to stop updating the display. 

No other function of Clock-Calendar will be affected in any way. 
The display flag is set to when the program is activated, 

$ 1 316 This location determines the display colour on both screens. 
If you wish to change the display colours POKE any value from to 
15 into this location. The proper value may be selected from the 
following chart: 



Code 40 COL. 


80 COL. 


Code 40 COL. 


SO COL. 


Black 


Black 


8 Orange 


Dark Red 


1 White 


Dark Grey 


9 Brown 


UghtRed 


2 Dark Red 


Dark Blue 


10 Light Red 


Dark Purple 


3 Cyan 


Light Blue 


] 1 Dark Grey 


Light Purple 


4 Purple 


Dark Green 


12 Medium Grey 


Dark Yellow 


5 Dark Green Light Green 


13 Light Green 


Light Yellow 


6 Dark Blue 


Dark Cyan 


\4 Light Blue 


Light Grey ; 


7 YeUow 


Light Cyan 


15 Light Grey 


While 



Colour values in excess of 1 5 are undefined in the program and may 
cause the display to behave in unpredictable ways. 

$1317 This location determines whether the display will be in 
normal or reverse video. POKEing a 1 into this location will change 
the display to reverse video. The default setting is (normal video). 

Using Clock-Calendar WUh Other Software 

Clock-Calendar has been designed so that it may be utilized with 
other software that requires a time and/or date value. Because 
Clock-Calendar is interrupt-d riven it is "invisible" to BASIC and 
most software and therefore requires few special programming 
considerations. There are a few precautions that must be observed 
when using the 80 column screen or when fetching keyboard input 
by use of the INPUT statement in BASIC or the CHRIN (BASIN) 
subroutine in the KernaL These precautions will be discussed later 
in this section. 

The time and dale outputs of Clock-Calendar are available in a 
group of memory locations starting at $1300 in RAM 0. These 



locations are updated once per .second as long as Clock-Calendar 
remains activated. The actual time and date values are stored in 
consecutive byte order, using both PETASCII and binary-coded 
decimal (BCD) formal- A description of each output follows in 
location order: 

$1300 PETASCII Dale 

The PETASCII form of the date is stored starting at $ 1 300 and takes 
Ihe form MM-DD-YY terminated by a CHR$(0) character. The date 
changes only at midnight (when hours, minutes and seconds all 
equal zero). 

Because it is possible for the date to change while your software is 
reading it, you should ''stop the clock" by issuing a SYS 4900 
command immediately before fetching the date. Once the fetch has 
been completed restart the clock with SYS -1897- 

NOTE: If the display flag at $ 1 3 1 5 has been set to '^display off (1 ) it 
will be reset to "display on" when the SYS 4^97 command is issued. 

A recommended method of fetching the date from BASIC is as 
follows: 

100dt$ = "":i = decC1300'):sys4900:torj = 0to7 
1 1 dt$ = dt$ + chr$(peek(i + 1)): next: sys 4897 

This will result in the current date being assigned to variable DT$. 

If the month is between January and September the first character 
in the string will be CHR$(32) (a blank). If the string is written to a 
tape or disk file the leading blank will be stripped when INPUT" is 
used to read it back. 

$1309 PETASCII Time 

The PETASCII form of the time is stored starting at $ 1 309 and takes 
the form HH:MM:SS terminated by a CHR$(0) character. The time 
changes once per second and ranges between 00:00:00 (midnight) 
and 23:59:59 (one second before midnight). 

As with fetching the date you should stop the clock immediately 
before fetching the time. A recommended method of fetching the 
time is as follows: 

1 20 td$ = ": i = decCl 309"): sys 4900: for j = to 7 
1 30 td$ = td$ + cfir$(peek(j + j)): next: sys 4897 

This will result in the current lime being assigned to variable TD$. 

NOTE: The time string will contain two imbedded colons (;). If you 
write the string to a tape or disk file you must read it back with the 
GET* statement. 

$1312 BCD Date 

The BCD form of the date is stored starling at $1312 and takes ihe 
form M D Y in three consecutive bytes. H your software requires 
storage of the date into a file you may find the BCD form more 
efficient as less storage space is required. 

A recommended method of felching the BCD dale is as follows: 

140bd$ = ":i = decC1312"):sys4900:forj = 0to2 
1 50 bd$ = bd$ + ctir$(peek(i + j)): next: sys 4897 
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This will result in ihe BCD date being assigned to the variable BD$. 
You may PRINT^ this dale to a file and read it back with INPUT' as 
there will be no embedded PETASCII values that will cause trouble 
with INPUT*. 

Using BASIC 7.0 it is possible to decode the BCD date into a 
PETASCII representation suitable for display. A recommended 
melhod of doing so is as follows {the BCD date is assumed lobe in 
variable BD$): 

200 m = asc(rnid$(bd$, 1 )) 
210d = asc(mid$(bd$,2)) 
220y = asc(mid$(bd$,3)) 
230 mS = mid$(hex$(m),3):if val(m$) < T Ihen 
mid$(m$,1,1) = chr$(32> 

240 d$ = mid$(hex$(d).3) 250 y$ - mid$(hex$(y),3) 
260dd$ = m$ + '-' + d$+"-' + y$ 

This will result in the variable DD$ containing the PETASCII dale, 
with a leading blank if the month is January through September. 

$1318 Signature 

This location contains the PETASCII string TLK" terminated with a 
Ci-IRS(O) character. The signature is present only when Clock- 
Calendar is activated. Applications software may use this string to 
determine if the clock is running. The recommended melhod of 
doing so is as follows: 

270 cs$ = 'elk' + chr$(0): ckS = ": ss = decCI 31 8") 
280 for i = to 3: ck$ = ck$ + chr$(peek(ss + i));next 
290 If ck$<>c3$ then CLOCK IS NOT ACTIVATED 

It is good practice to always lest for the signature string before 
attempting to fetch lime and/or date values from the clock. 

$1327 BCD TIME 

The BCD form of Ihe lime is stored starting at $1327 and takes the 
form H M S In three consecutive bytes. If your software requires 
storage of the time into a file you may find the BCD form more 
efficient as less storage space is required. 

A recommended method of fetching the BCD time is as follows: 

300 bt$=";i = decn 327"): sys 4900: forj = 0to2 
3 1 bt$ = btS + chr$(peek(i + j)}: next: sys 4897 

This will result in the BCD time being assigned to the variable BTS. 
You may PRINT^ this time value to a file. However, it must be read 
back with GET'*' to avoid a truncated string. 

Using BASIC 7.0 it is possible to decode the BCD time into a 
PETASCII representation suitable for display. A recommended 
method of doing so is as follows (the BCD time is assumed to be in 
variable BTS); 

320h = asc(mid$(bt$J)) 
330m = asc(mid$(bt$,2)) 
340s = asc{mid$(bt$,3)} 
350h$ = mid$(tiex$(h).3) 
360m$-mid$(hex$(m),3) 
370s$ = mid$(hex$(s),3) 
380td$ = h$ + ":" + m$+^:-4-s$ 



This will result in the variable TD$ containing the PBTASCII time, 
with a leading zero if the hour is before 10:00 AM. 

To avoid system clashes or other maladies when using Clock- 
Calendar with other software, you should observe the following 
precautions; 

L Do not disturb anything in RAM between locations $13iC and 
$15D8 inclusive (except the alarm locations at S131E-$1320). 
Because Clock -Calendar is driven by interrupts it may be consid- 
ered part of the C-128 operating system. Disturbing anything in 
the $131C-$15DS memory range will probably cause the C-128 
to immediately crash. If it is necessary to load a different program 
into that same area you must slop the clock with a SYS 4900 
command before attempting the load. 

2. Avoid using the iNPUT statement in BASIC(or CHRIN in machine 
language) to fetch keyboard input when the cursor is on the top 
two rows of the screen. The system will accept the time or date 
display as part of the input. If you must use the top two rows for 
input, either define a window that does not include the columns 
in which the time and date display occurs or else shut off the 
display as previously described, 

NOTE: Shulling off the display does not remove it from the screen. It 
simply tells Clock-Caiendar to discontinue updating of the display. 
You must explicitly clear that part of the screen. 

3. When using INPUT or CHRIN on the 80 column screen it is 
mandatory that the display be shut off, regardless of the row on 
which the input is to be accepted. Due to the manner in which the 
C- 1 28 screen editor operates, a clash between CHRIN and Clock- 
Calendar may occur if the INSerT/DELete key is used or if the 
screen is scrolled with the cursor keys. Such a clash may result in 
a scrambled screen display, from which recovery requires use of 
the STOP/RESTORE keypress combination. 

It is also not advisable to use the SCNCLR stalemenl from 
BASIC when operating on the 80 column text screen. SCNCLR 
bypasses software traps that have been built into C lock-Calendar 
to avoid clashes with the screen editor Instead, use the C-64 
method of clearing the screen (PRINT CHR$(1 47)). Partial screen 
clearing by use of the ESCape functions (ESC P, ESC Q and ESC 
@) is permissible. 

4. If your program makes use of split-screen graphics you should 
stop the clock with a SYS 4900 command. Splil-screeii graphics 
require very precise liming of the interrupts. The small additional 
time required to execute the Qock-Calendar code is sufficient to 
disturb thai timing. Although such a disturbance will not be fatal 
to the system it may result in an unattractive display. 

5. If you are using a music program you should avoid setting the 
alarm. The alarm function, of course, uses the SID chip and will 
interfere with any music that is being performed. Also, many 
music programs make use of synchronized graphics, such graph- 
ics being limed by interrupts. In such a case, the clock should be 
stopped for the reasons described above, 

6- If you are programming in machine language, avoid direct jumps 
into the screen editor ROM unless interrupts have been disabled. 
Direct ROM jumps will bypass the editor traps built into Clock- 
Caiendar and may cause the 80 column display lo malfunction 
while interrupts are enabled. This precaution does not apply to 
the 40 column screen. 
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Controlling The Alarm 

As mentioned above, Clock -Calendar features an audible alarm. 
The alarm is controlled by both the alarm time setting and the alarm 
enable flag at $1320, Setting the Nag to any positive value (0-127) 
will enable the alarm while setting the flag to any negative value 
(128-255) will disable the alarm and immediately silence it if it is 
operating. 

NOTE; Even though the alarm enable f)ag has been set to ''alarm 
on" a valid alarm time must exist in the alarm time location if the 
alarm is to function. 

If you do not^disable the alarm with the flag it will automatically 
silence after one minute. 

If it is necessary to determine what the current alarm time is you 
may decode the alarm setting from BASIC 7.0 using the following 

short routine: 

400 i = decC1 31 e"): h$ = mid${hex$(peek(i)),3) 

41 m$ = mid$(hex${peek(i + 1)),3}; at$ = h$ + ";■ + rn$ 

This will result in the decoded alarm lime being assigned to variable 
ATS in the formal HH:MM (seconds are not used for the alarm time). 
It is not necessary to slop the clock lo fetch the alarm lime as it is 
used only as a reference by Clock-Calendar 

AcyusUng The Hardware Clock For 50 Hz Operation 

As mentioned above, the CIA hardware clock is initialized lo use 60 
Hz as a time-keeping reference. If your power line operates at 50 Hz 
you may make the necessary adjustment with the following com- 
mand sequence: 

i = decCddOe'): bankIS: pokei,peek(i)or 128 

!f it is necessary to reset it for 60 Hz power you may use the 
following command sequence: 

i = decCddOe"): bank15: poke i,peek(i) and 127 

[f the CIA chip is set for the wrong power line frequency it will be 
obvious by watching the speed at which the display updates. 

More Than Just a Clock 

Clock-Calendar takes care of the basic functions of timekeeping 
and, as you'll see, does the job at minimal cost. However, that 
doesn't mean that the program can't be put to other uses, 

I've purposely placed the BCD time and dale outputs in stable 
locations so that they may be used by other software. I've also 
defined a stable exit location (IRQA) for the program so that a 
machine language programmer can use Clock-Calendar with a 
non-standard IRQ system. This makes it possible to easily patch into 
the prot^ram for other purposes. 

In a future article we could explore such things as controlling 
external devices with Clock-Calendar or perhaps getting the C-! 28 
lo automatically execute a program at any desired time. Before you 
know it, we'll have your computer running the house and making 
coffee in the morning. Now. that's what I call user-friendly! 



How Clock-Calendar Works 

Snce this is a magazine article and not a programming textbook, I'll 
spare you the dissertation on how the program operates (it's a lot 
easier to use the thing than to explain why it works). If you're 
interested ptease study the source code comments and feel free to 
experiment. After all, the worst thing you can do is crash the 
computer. I did it many limes before I got Clock-Calendar lo work 
(crashes in IRQ-driven routines are really exciting). 

If after reading through the source code, you still aren't sure as lo 
how the thing runs, please contact me and Til send you a detailed 
description of Clock-Calendar and how it operates, I may be 
contacted via voice at (312) 595-3356 between the hours of 1930 
and 2230 Central Time weekdays or all day on most Sundays. 

Listing I: Run this program to generate the clock display program 
'clk4864" on disk. See texl for details. 



MO 
DH 



100 rem generator for ■clk4864' 

110 nd$ = "011^4864": rem name of program 

1 20 nd = 729: sa = 4864: ch = 65204 



Forlines I30lo200, u^e the standard generator program on page 5 



MP 
AO 
CN 
AA 
JO 
MB 
NL 
IG 
LI 
JF 
FF 
FP 
AE 
MB 
DJ 
NJ 
MB 
GM 
JP 
FM 
KJ 
GA 
ML 
DP 
LE 
OP 
LN 
ND 
CM 
DF 



1000 data 32, 

1010 data 0, 

1020 data 32, 

1 030 data 0, 

1040 data 255, 

1050 data 0, 

1060 data 224. 206. 208, 

1070data120, 174, 28, 

1080 data 20, 3, 140, 



32, 45, 32, 32, 45, 32, 32 

32, 32. 58, 32, 32, 58, 32 

0,255,255,255, 0, 7, 

0, 0, 0.101,250,255,255 



76, 105, 
0,174, 



19, 76, 42, 19, 

20, 3.172. 21, 
52,192, 19,208, 
19.172, 29, 19, 

21, 3. 174, 137, 



1, 10, 88. 160, 3 

24, 19,136, 16.250 

3,172, 21, 3.224 

192, 19.240, 86, 142 

29, 19,120.162,206 

20, 3,140, 21, 3 



IB 
DA 

FE 
NO 
PH 
DL 
PH 





3 

48 

142 

21 

1090data172,138, 21.142, 38, 3,140, 39 
llOOdala 3,174,198, 21,172,199. 21,142 
inOdata 0, 10,140, 
1120data169, 0, 153, 
1130data 96,174, 20. 
11 40 data 206. 208, 4, 
1150data 28, 19,140, 
1160data160, 19,142, 
1170data174. 38, 3,172, 39, 3,142.137 

1180data 21,140,138, 21,162,116.160, 21 
1190data142, 38. 3,140. 39, 3,174, 
1200data 10,172, 1, 10,142.198, 21.140 
1210data199. 21,162.189,160, 21,142. 
1220data 10,140, 1, 10,173, 3,221,141 
1230data 8,221, 88,160, 3,185.212, 21 
1240data153, 24, 19,136. 16,247,200,140 
1250data 21, 19, 140.216, 
1260 data 8,221,240, 8, 
1270data 21, 108, 28, 19, 
1280data248, 206.216, 21,162, 
1290data189, 8,221.202, 48. 
1300 data 19,200,208,244,173, 
1310data 8,201, 18,208, 14, 
1320dala 10, 41,127,201. 

18,216,141. 

48. 38, 160, 

39. 19,208, 

15,141, 24.212, 141. 

15,212. 162,250, 160, 



21, 

169, 

44, 



1330 data 105. 
1340 data 19, 
1350 data 217, 
1360 data 169, 
1370 data 141, 



96,216,173 

0. 141,216 

216. 21, 48 

3. 160, 

6,153, 39 

39, 19. 48 

0,240 

4,248 

44, 32 

30, 19 

16,245 

14,212 

33, 142 



169. 

18.176, 

39, 19, 

1.185, 

28, 136, 
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IL 


1380data 20,212,140. 18,212,136,140, 18 


For lines 130 lo 200, use the standard generator program on page 5 




GF 


1390data212, 160, 2,185, 39, 19,208, 73 




1 


NM 


1400data136, 16,248,173, 20, 19, 32,170 


BN 


lOOOdata 41, 1,141,208, 23,165,241. 72 




DL 


1410data 21,162, 40, 74,176, 4, 74,176 


LO 


1010 data 173, 0,255, 72,162, 14,142, 




PC 


1420data 1,232,142,201, 21,173, 18, 19 


HC 


1020 data 255. 232, 142, 24, 212, 169, 183, 141 




Gl 


1430data 32,170, 21,170,202,173. 19, 19 


HK 


1030data 60, 3, 32. 93, 23,169,147, 32 




IP 


1440dala221,200, 21,208, 30,224, 11,208 


IB 


1040dala210, 255, 162, 2,160, 0, 32, 60 




BK 


1450data 13,173, 20, 19, 32,183, 21,141 


LJ 


lOSOdata 23,173,208, 23, 10,170,189,113 




LD 


1460data 20, 19,169, 1,208, 6,173, 18 


FE 


1060data 23,188,114, 23, 32, 64, 23,162 




CN 


1470data 19, 32,183, 21,141, 18, 19,169 


PL 


1070data 2, 56,152,233, 7,168, 32, 60 




LD 


1480dala 1,208, 3, 32,183, 21,141, 19 


JA 


1080 da a 23, 32, 80, 23,133,252,120, 32 




CO 


1490dala 19,173, 18, 19, 32,148, 21,201 


NE 


1090data111,205, 88, 32.228,255.240,251 




H 


1500 data 48,208, 2,169, 32,141, 0, 19 


IH 


llOOdata 72, 36,215. 16, 8,120, 32,172 




NA 


1510data142, 1, 19,173, 19, 19, 32,148 


EJ 


11 10 data 205, 88, 76, 96, 22, 32,159,205 




KG 


1520data 21,141, 3, 19,142, 4, 19,173 


BL 


, 1120 da a 104, 164,252,240, 4,201. 20,240 




IH 


1530data 20, 19, 32,148, 21,141, 6, 19 


OG 


1130data185, 192. 4,144, 6,201, 13,208 




FE 


1540data142, 7, 19,173, 39, 19, 32,148 


El 


1140 data 213, 240, 28,201, 48,144,207,201 




ED 


1550data 21,141, 9, 19,142, 10, 19,173 


DK 


11 50 data 58,176,203, 32,210,255,153,204 




LD 


1560data 40, 19, 32,148, 21,141, 12, 19 


OB 


lieodata 23,230,252,192, 1,208,191,169 




PB 


1570 data 142, 13, 19,173, 41, 19, 32,148 


FJ 


11 70 data 29, 32,210,255, 76, 70, 22,174 




GO 


1580da1a 21,141, 15, 19,142, 16, 19,173 


PI 


11 80 data 204, 23,173,205, 23, 32, 48, 23 




PC 


1590data 21, 19,208,101,173, 22, 19,160 


AG 


1190da!a201, 36,144, 6, 32, 85, 23, 76 




JE 


1600data 7,153, 32,216,153, 72,216,136 


01 


1200data 34, 22,141,211, 23,174,206, 23 




Kl 


1610 data 16,247,174, 23, 19,160, 7,185 


GL 


1210data173, 207, 23, 32, 48, 23,201, 96 




KG 


1620 data 9, 19,224, 0,240, 2, 9,128 


DG 


1220 data 176, 234, 141,210. 23, 169, 0,141 




EH 


1630 data 153, 32, 4,185, 0, 19,224, 


JD 


1230data209, 23,162, 4.160, 0, 32. 60 




IP 


1640data240, 2, 9,128,153, 72, 4,136 


FA 1 


1240 data 23,169,175,160, 23, 32, 64, 23 




MK 


1650data 16,229,169, 0,160, 72, 32,106 


IG 


1250 data 32, 93, 23, 32, 80, 23, 32,228 




OA 


1660data 21,162, 9,160, 19, 32, 68, 21 


HI 


1260 data 255, 201, 78,240, 73,201, 89,208 




'DH 


1670datal69, 0,160,152, 32,106, 21,162 


FB 


1270data245, 173,208, 23,240, 18,174,211 




FL 


1680 data 0,160, 19, 32, 68, 21,169, 8 


NP 


1260 data 23.172,210, 23,142, 30, 19,140 




AN 


1690datal60, 72, 32,106, 21, 32, 87, 21 


Jl 


1290data 31. 19,141, 32, 19, 76. 30, 23 




NG 


1700data169, 8,160,152, 32,106, 21, 32 


MH 


1300 data 173. 211, 23,240, 15,201, 18,144 




MN 


1710data 87, 21, 36,215, 16, 3, 76, 51 


GE 


1310data 11,248, 56,233, 18,216, 9,128 




DO 


1720data255, 108, 28, 19,142, 77, 21,140 


01 


1320data141.211, 23,120,173, 15,221, 41 




DO 


1730 data 78, 21,160, 0,185, 0, 0,240 


FB 


1330data127, 141, 15,221,162, 2,160, 3 




LJ 


1740 data 24, 32,202,205,200,208,245,160 


Lful 


1340 data 189, 209, 23, 153, 8, 221,202, 136 




LP 


1750data 8,173, 22, 19,174, 23, 19,240 


CL 


1350 data 208, 246, 141. 8,221, 88,162, 173 




DO 


1760data 2, 9, 64, 32,202,205,136,208 


OD 


1360 data 160, 0,142, 60, 3,140, 24,212 




Dl 


1770data240, 96,162, IB, 32,204,205,232 


FJ 


1370 data 104. 141, 0,255, 104, 133,241, 96 




AD 


1780data152, 76,204,205, 72, 36,215, 16 


MA 


1380data 41. 15,133,252,138, 10, 10, 10 




NO 


1790data 14,165,154,201, 3,208, 8,173 


PJ 


1390 data 10, 5,252, 96, 24, 76,240.255 




KB 


1800data 21, 19,208, 3,206, 21, 19,104 


Jl 


1400 data 133, 250, 132,251, 160, 0, 177,250 




■ IL 


1810data 32,121,239, 44, 21, 19, 16, 3 


IF 


1410data240, 10, 32,210,255,200.208,246 




DF 


1820data238, 21, 19, 96, 32,160, 21, 72 


Bl 


1420 data 169, 0, 133, 208, 96, 169, 6, 162 




CN 


1830 data 138. 9, 48,170,104, 9, 48, 96 


MO 


1430data251, 160, 33,208, 6,169, 50.162 




■ LG 


1840 data 72, 41, 15,170,104, 74, 74, 74 


DJ 


1440data250. 160, 17,141, 1,212,142. 6 




PD 


1850data 74, 96, 32,160, 21,168,138, 24 


PH 


1450 data 21 2, 140, 4,212, 136, 140, 4,212 


1 


OH 


1860 data 136, 48, 9,105, 10,208,249,248 


KP 


1460data 96,117, 23,147, 23,158, 67, 79 




FK 


1870data 24,105, 1,216, 96, 32,105, 19 


MC 


1470 data 82, 82, 69, 67, 84, 32, 64, 73 




OC 


1880data169, 0,141, 34, 10, 76, 0, 


OD 


1480 data 77. 69, 32, 40, 72, 72, 58, 77 




FO 


1890 data 49, 40, 49, 48, 49, 48, 49. 49 


MH 


1490dala 77, 41, 58,159, 32, 32, 32, 58 




FL 


1900 data 48, 49, 48, 49, 67, 76, 75, ' 


KE 


1500data 27, 81, 0,158, 65, 76, 65, 82 




MA 


1910 data 


PF 


1510 data 77, 32, 84, 73, 77, 69, 32, 40 




DM 


1520 data 72. 72, 58, 77, 77, 41, 58,159 




AD 


1530 data 32, 32, 32, 58, 27. 81, 0, 5 


Listing 2: This creates the clock/alarm set program '^1^5632', 


HF 


1540 data 73, Q3, 32. 84. 72, 73, 83, 32 


V 





1550 data 84, 73, 77, 69, 32, 67, 79, 82 
1560 data 82, 69, 67, 84, 32, 40, 89, 47 


P 


100 rem generator for ■ck5632" 


PH 


' KN 

1 


1 1 nd$ = ■clk5632": rem name of program 


EA 


1570 data 78, 41, 63, 0. 0, 0, 0, 


' NH 


1 20 nd = 468: sa = 5632: ch = 49 1 84 


KG 


1580 data 0, 0, 0, 
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Listing 3: Generator for 'dt5632", the program to set the dale. 



IE 
FN 

JF 



100 rem generator tor ^15632" 

1 1 nd$ = ■dt5632": rem name of program 

1 20 nd = 41 4: sa = 5632: ch = 43027 



Forlines l30to2(X), use ihe standard generator program on page 5 



PD 

LO 
IF 

HK 

AJ 
FJ 

AC 

CL 

CH 

KH 

AK 

CF 

MG 
AJ 

DH 

OK 

BD 

NA 
AB 

BO 

HM 

GH 
lA 
CP 

MC 

KG 

EF 

CC 

KA 

FJ 

AA 

GH 

AN 

DF 

OD 

LH 

GK 

GO 

DF 

EK 

CK 

OK 

JF 

MD 

LD 

FK 

CK 

CO 

KE 

OD 

BA 

MO 



32,228,255,240 



16, 

81, 



8,120, 32 

22, 32,159 

4, 201 , 20 

6,201. 13 

48,144,207 



16, 232 

23,162 

2, 162 

6, 32 

19,176 



1000data165,241, 72,173, 0,255, 72,162 
lOIOdata 14,142. 0.255,232,142, 24,212 
1020data169, 183, 141, 60, 3, 32, 38, 23 
1030 data 169, 147, 32,210,255,162, 2,160 
1040 data 0, 32, 63, 23,162, 95,160, 23 
lOSOdata 32, 67, 23,162, 2,160, 14, 32 
1060d5ta 63, 23, 32. 58, 23,133,252,120 
1070 data 32,111,205, 88, 
1080 data 251, 72, 36,215, 
1090 data 172, 205, 88, 76, 
1100 data 205, 104, 164,252,240, 
1110data240, 195, 192, 6,144, 
1120data208,213,240, 32,201, 
1130data201, 58,176,203, 32,210,255,153 
1140 data 149, 23,230,252,192, 1,240. 4 
1150datal92, 3,208,187,169, 29, 32,210 
1160data255, 76, 55, 22,162, 2,160, 5 
11 70 data 185, 149, 23, 
11 80 data 185. 149, 23, 
1190data252, 157, 155, 
12D0dala 72, 173, 157, 
I210data 41, 74, 176, 
1220 data 48,142, 84, 
1230 data 30, 23, 76, 
1240 data 246, 32, 12, 
1250 data 23,240,236,221, 
1260datal62, 4,160, 0, 
1270 data 120, 160, 23, 32, 
1280 data 23, 32, 58, 23, 
1290data 78,240, 15,201, 
1300data 2,189,155, 23,157, 18, 19,202 
1310data 16,247,162,173,160, 0,142, 60 
1320 data 3,140, 24,212,104,141, 0,255 
1330data 104, 133,241, 96, 72, 74, 74, 74 
1340data 74,170, 104, 41, 15, 
1350data 4,105, 10,208,249, 
1360data162,251,160, 33,208, 
1370data162,250,160, 17,141, 
1380dala 6,212,140, 4,212,136,140, 4 
1390data212, 96,169, 0,133,208, 96, 24 
1400 data 76,240,255, 134,250,132,251,160 
1410data 0,177,250,240,241, 32,210,255 
1420 data 200, 208,246, 50, 41, 50, 49. 50 
1430 data 49, 50, 50, 

68, 

84, 

32, 

83, 

65, 

69, 

41, 
0, 



41, 15,133,252,136 

10, 10, 10, 10, 5 

23, 136,202, 

23, 32, 12, 
5, 74,176, 

23, 104,208, 

29, 22,201, 

23,170,202,173,156 
83, 23,176,231 
32, 63, 23, 162 
67, 23, 32, 38 
32, 228, 255, 201 
89,208,245.162 



24,202, 48 

96,169, 6 

6,169, 50 

1,212, 142 



1440 data 84, 

1450 data 68, 

1460 data 32, 

1470 data 5, 

1480 data 32, 

1490 data 82, 

1500 data 47, 

1510 data 0, 



79, 
65, 
45, 
73, 
68. 
82, 
78, 
0, 



49, 
65, 
69, 
32, 
32, 
84, 
67, 
63, 
0, 



50, 49, 
89, 39, 
58,159, 
45, 27, 



50, 158 
83, 32 



84, 

69, 

84, 

0, 

0, 



72, 

32, 

32, 

0, 





32, 
81, 
73, 
67, 
40, 
0, 



32 

83 
79 
89 




Listing 4: CBM-foTmal assembler isou 

;pu["@0:clocl<-cal,src 
opt nos 



Cec(jdcfor'(:lk'1864' 



;c 



;■ 
1- 



:■ 



clock S calendar display, , - 
—128 mode, 40 or BO columns 
with audible alarm tuncliori 
written 1 1-16-85 w,|. brier 
revised 6-05-87 
copyright 1966 

this program is not to be, , . 
sold, it is permissible. . 
to copy it but credit rnust, . 
be given in the documentation 

see the documentation for. . . 
instructions on us^ng this, , , 
program with your software. . 



^•••■■■'■■■■■A«>>*** 



;■ <« program assignments >» > 
isysiem vectors & pointers, , , 



dflto 


$9a 


[Output device 


mode = 


$d7 


;display mode flag 


cinv 


$0314 


; normal irq vector 


ibsout = 


$0326 


; normal chrout vector 


system = 


SOaOO 


;basic reset vector 


rpttig = 


$0a22 


;keyb'd repeat fag 


basrst = 


$4003 


;basic w/arm reset 


fod2 = 


$dd08 


;timeof dayclock#2 


.pag 






;soreen editor functions, , 




wvdcm = 


Scdca 


;wriieto8563ram 


wvdcT = 

r 


$cdcc 


;w/nteto8563 register 


• 

;kerna functions. , . 




chrout = 


Sef79 


; output a byte 


Ifq 


£la65 


; normal irq 


crti 


$ff33 


;irq handler exit 


:40 col vie screen ram, , , 




vcram = 


$0400 


: start of display ram 


viram 


SdSOO 


istart of color ram 


^ 

;sid chip re 


gisters (voice 3), , , 


treo3 - 


$d40e 


[frequency ctr (o) 


frehf3 = 


$d40f 


ifrequency Ctrl (hi) 


vcreg3 = 


Sd412 


;conrro register 


surel3 = 


Sd414 


: sustain/release 


sigvol = 


Sd41B 


;sid volume 



;80 col 8563 vdc assignments, , , 
scraml - 72 ; screen ram (tjme) 

scram2 - 152 ;screen ram (date) 

atraml = 2120 latlribute ram (time) 

atram2 = 2200 ; attribute ram (dale) 



upf eg =■ 1 8 


, update register 


• = $1300 


[4864 


pag 




+ 

[user -accessible memory. 


^ « 


tdta byt" - - \0 
toda byl' : : .0 
Tdtc byt 255,255,255 

dflg byl 
cfg byt 7 
rflg bytO 
key byt 0,0,0,0 


[asoii date 

:ascii lime 

,bcd date 

;1 = no dispay 

[display color 

;1 = reverse video 


;exit vector . . 




irqa ,wor irq 




h 

[alarm registers. . . 
altc .byt255,255 


[time (h:m) 
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atlg .byt255 


; enable flag 


sty Iflg ■ xlear lockout flag 
star!3 rts 

b 
P 

J 

:update S dispfay lime S date 

dec old , binary mode 




tax 

dex 

da tdtc+1 

cmpclui.x 

bne dcc14 

cpx *11 

bne dccl2 

Ida Idle + 2 


; calendar lookup offsel 
[Current day 
; asl day ol month 
;not end of month 


; entry point to start display 

cikon imp start .start display 


;entry point to slop display 


clkof jmt 


) stop 


;stop display 




da tod2 
beq dcc02 

b FJXX 


;Ienths of seconds 
llenlhs are zero 




;nol december 

.current year 






r 

,bcd lime storage 
todc .byt 0.0,0 


:hrs:min sec 


dccOl 


da #0 
sta Iflg 
jmp (rrqa) 


:c1ear lockout flag 
; normal irq 




jsr idv 
sta tdtc +2 

Ida #1 


[bump year 
[Save new year 


^ 






dcc02 


' bit Ifg 






bne dcc13 


;set month to January 

.current month 


1 ^^^^ 


f— — ^=^^t_ 


=-====^^'^==—=== 




bmi dccOi 


: update focked out 


dcc12 


■ Ida tdtc 


^ 

; Stop dock- 

■ 1 


calendar display 




dec Iflg 


;set lockout flag 


dccia 


jsr idv 
; sta tdtc 


,bump 

; new month 


stop d>! 

i 


cinv 


;jrq vector 


;read cock registers. . . 






Ida #1 


1 "^w* ' ■ 1 ■ ■ XXF 1 LI I 


Idy 

cp> 

■ 


cinv + 1 
: Ai<dcc 


; display vector 




Idx ff3 
dy #0 


;lod2 offset 
istorage offset 


dec 14 


bne dcc15 
jsr idv 


;seTdayto 1st of month 
[bump day 
[new day 


bne ciKor-^ 
cpy #>dcc 


; not running 


dcc03 


Jda iod2,x 
dex 


; fetch time vaue 


dccIS 


sta tdtc + 1 


br>e cKof? 


;r»ol running 




4_r l_paX 

bmi dccOd 


; finished 


F 

;decode date for displav. 




1 1 




interrupts off 




Sta todc.y 


;save in buffer 


dec 16 


Ida Idle 


[Current month 


lax 
Idy 


irqa 


: original irq vector 




jny 






isr bodasc 


[decode to ascii 


irqa + 1 






bne dcc03 


:loop 




cmp#'0 


1 ■ ^ ^m ^m ^m ^^ ^m ^^^ ^^^^ ^^^ ^^^ 


stx 


cinv 






1 






1 

bne dccl? 




sty 
Idx 

1 _i 


cinv + 1 




;iest ai 


Ti/pm flag S adjust hours 




Ida #32 


.bank eading zero 
save lens 


bsouta 




dcc04 


Ida todc 


;bcd hours 


dec 17 


sta tdta 


Idy 


bsouta + 1 






bmi dccOS 


; It's pm 




stx tdta + 1 


save units 


stx 


ibSOLit 


;restorechTout vector 




Cmp#Sl2 






Ida tdtc + 1 


^ iWHA r Xx !_■ 1 I 1 Li_F 

[current day 


sty 
dx 
Idy 


ibsout + 1 
alrstt 
alrstl + 1 






bne dcc06 
Ida #0 
beq dcc06 


;noImidnite 

;set hours to midnile 




jsr bcdasc 
sla tdta + 3 

stx tdta + 4 


StK 

sty 

cli 

Idy 


system 
system + 1 


; reslore system vector 


dcc05 


and ff%oni1111 :maskam/pmbit 
cmp#$l2 




Ida tdtc + 2 
]sr bcdasc 


.current year 


1^ f\ 


; interrupts on 




bcs dccoe 


;il's noon straight up 




sla tdta + 6 




#3 

rp B-t 


;offset 




sed 


;decimal mode 




stx tdta + 7 




Wa 

Lb # ^ 


#0 






ado #S12 


;changeto24 hours 








clkofi sla 
dey 
bpl 

Joop 

1 1 r^^ 


key.y 


;wipe out id key 


1 J. J. 


dd 


;binary mode 


[decode lime for disolav. . 




cfkofi 




dcc06 sta todc 

i 

;lesHor alarm time. , , 


iconverted hours 




r w 

Ida lode 
jsr bcdasc 
sta tod a 


.hours 


clkof2 rts 








bit afig 


[Check flag 




^_rb^_& L L^ LgiB ^_^ 

Stx toda + 1 




3 






dcc07 


bmi dcc09 

Idy #T 
Jda altc.y 


lafarm not enabled 

; offset 
;alarm time 




r 

Ida todc + 1 
jsr bcdasc 
Eta toda + 3 


[minutes 


, Start clock-ca endar display 


start dx 

1 _i 


cinv 


;irq vector 




cmptodc,y 


; check agarnst \od 






Idy 


cinv+1 






bne dcc09 


;rot time 




stx toda + 4 




cpx 


A'<dcc 






dev 










bne start! 
cpy #>dcc 

beq starts 


;change vector 
;display is runnning 


bpl dcc07 

1 

;sound alarm. . . 


;loop 




Ida todc +2 
jsr bcdasc 

sla toda + 6 


; seconds 


slarti stx 


irqa 


;save existing. . , 




da #15 






sfx toda + 7 




sty 

r 


irqa + 1 


; irq vector 




sta srgvol 


;max volume 




^'h' bXXXiB ■_■ 1 r 




sei 
Idx 


i¥<dcc 


ichange. . . 




sla frelo3 
sta trehi3 


;set Irequency 


[display times date. . . 

Ida ritin 




Idy 


#>dcc 


;irq vector so That. . , 




Idx #250 


[duration 




bne dcc23 


; dispfay rnhibtted 


six 


cinv 


; clock-calendar runs 




Idy #ai 


.sawtooth waveform 




L 


sty 
Idx 
Idy 


cinv + 1 

ibsout 
ibsout + 1 

■ , 






stx surelS 


[Sustain/release 


[display on 40 column screen .. 1 


; save current. . . 
.chrout vector 




sty vcregS 
dey 


; attack/decay 


dec 18 


Ida cfig 

Idy #7 


.display color 

;offset 


stx 
sty 

Idx 


bsouta 
bsouta + 1 
#<crdy 


;change . , 


;test foi 


sly vcreg3 

F 

' Stroke of midnile. . 


igate voice 


dec 19 


J 

sta vlram + 32,v 

sta vlram + 72,y 

dey 

bpl dcc19 

Idx rfig 

Idy #7 

Ida loda,y 

cpx #0 

beq dcc2l 

or a #128 

sTa vcram + 32.y 


[Color 


Idy 

Sty 


#>crdy 

ibsoui 
ibsout + 1 


ichroul vector so. . , 
;delay routine. . , 
; intercepts it 


dcc09 
dec TO 


Idy tt2 

b 
P 

Ida todc.y 


;todc offset 
[fetch time value 




[loop 

;normal/ieverseflag 
'offspt 


Idx 
Idy 

stx 
sty 
tdx 
dy 

■ 


systern 
system + 1 

alrstl 
alrstl + 1 

#<alrst 
#>alrst 


; basic resel 

;st<xe 

; alternate resel 


bne dccl6 

dey 

bpl dec 10 

;fest for leap year. , . 


;riol mid n lie 
Joop 


dcc20 
dcc21 


[fetch lime 
[test reverse flag 
[not reversed 
[reverse 






Ida Idle + 2 


[Current year 




Ida tdta,y 


[fetch date 


stx 


system 


;new reset vector 




jsr bcdoJ 


[Change to binary 




cpx #0 


f r ^_r L^_r ■ XirBXr%%%^ 


sty 


system + 1 






Idx #$28 






beq dcc22 
ora #128 




Ida 


tod2 


;give clock a kick. . , 




Isr a 


[divide by 2 






sla 
di 

b 1 


tod2 


;[o get it started 




bcs dcc11 


[Odd year 


dcc22 


sta vcram + 72, y 




pp fi. 






Isr a 


; divide agarn 




dey 




Idy 

sfart2 da 


#3 
kevstr,y 


: offset 
;key 




bcs dcc11 

inx 


;rion-leap year 
[leap year 




bpi dec 20 


1 


sta 
dey 

bpl 

■ r^ L r 


key-y 


; enable key 


dccTI 


stx cut + 1 


1 J 

Jastday infeb. 


[display on 00 column screen. . . | 


star 12 


Joop 


F 

:adjust date lor end ot month. , , 




Ida #>scraml 
Idy #< sera ml 


[address for. . , 
.Ifme display 


my 
sty 


dtig 


;clear display flag 




Ida tdtc 

jsr bed of 


[fetch monlfi 
[Change to binary 




jsr set ram 
Idx #<toda 


[set up vdc ram 
.petascii time 
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Idy #>toda 

jsr dlod 

Ida #>scram2 

Idy #< scram 2 

jsr set ram 

Idx #<icl1a 

Idy #>idta 

jar dtod 

;sei 80 column attributes. , 

Ida #>alram1 

Idy #<atram1 

jsr set ram 

(sr alrsi 

Ida #>atram2 

tdy #<atram2 

|sr selram 

jsi atrst 

bil mode* 

bpl dcc23 
imp crti 
dcc33 jmp (irqaj 



^display 
;addresstor. , 
jdate display 

;pelasct» date 

; display 



;addressfor. , . 
;lime atlnbuie 

;sel up attributes 

;addressfor, , , 
;date attribute 

;set up attributes 

;40 column mode 
;bypassrestof irq 
; continue irq 



F 

:dispiay timeof date 




dtod stx dtod02 


;source address 


sty dtod02 + 1 




Idy #0 


;offsel 


dtodOl .byl$b9 


;kJa llhh,y op -code 


d[od02 • = " + ? 


; sou tee address 


beq at^stS 


;end of siring 


jsr wvdcm 


;outpuItoa563 


(ny 




bne dIodOl 

1 


;1oop 


F 

.set Up display attributes 




atrst Idy #8 


; counter 


atrstl Ida cfig 


;get color 


Idx rfig 




beq alrst2 


;no reverse display 


ora #%OlOO0OO0;reverse 


airst2 jsr wvdcm 


.output to 8563 


dey 




bne atrstl 


;toop 


atr5t3 rts 




:sel up vdc ram address 




setram ld)i #upreg 


; update register 


jsr wvdcr 


: write 


inx 




tya 


;swap hi byte 


jmp wvdcr 





.chrout intercept & trap 

crdy pha 

bit mode 
bpl crdyOI 
Ida dlllo 

cmp#3 
bne crdyOI 
Ida dfig 
bne crdy 01 
dec dfig 

CfdyOl pi a 

.byl32 

bsouta -wor chrout 
bit dfIg 
bpl crdy 02 
inc dNg 

crdy 02 rts 



;save printing char. 

;in 40 columns 
; output dev^ce 

;not screen 
;test display flag 
;display inhibited 
.block display 

;recover character 
,jsr op-code 

;normal chrout 

:no reset needed 
; clear for display 



; convert bed to petascii 
txilasc jar bcdbin 

ptia 

txa 

ora #48 

tax 

pla 

ora MQ 

rl3 



bod to binary 
save tens value 
units value 
change to petascii 
hold 
fetch tens 



;bcddigit!o2 binary digits 
bodbin pha 

and #15 

tax 



pla 

Isr 
Isr 

Isr 

Isr 
rts 



a 
a 
a 
a 



save tied value 
mask lens nybble 
units in x reg^ster 
fetch bed value 
shift tens nybble 



;syslem vectors & pointers. 



;tx;d digit to 1 binary digit 
bed of [sr bcdbin 

tay 

ixa 

cic 
bcdofl dey 

bmi idvOl 
;linished 

adc #10 

bne bcdofl 



,bcd to binary 
;tens value 
i units 

jcounter 



iincrement date va ue 




Idv sed 


idecimal mode 


do 




adc Ml 




eld 


; binary mode 


idvOI rts 




;aternate basic reset 




alrst jsr start 


;restarlcock 


da #0 




sta rptfig 


; repeat off 


■byt $4c 


;jmpilhh op-code 


alrst! --- + 2 

+ 


■reset jump 


; calendar lookup table 




Glut -byt $31 


ijan 


.byt $23 


■Jeb 


byt $31 


:mar 


,byi$30 


;apr 


.byt $31 


;may 


.byt S30 


;iun 


.byt $31 


^jul 


■byt $31 


,aug 


■ byt $30 


;sep 


■ byt $31 


;ocl 


.byt $30 


:nov 


.byt $31 

^ 


;dec 



; prog ram storage 

keyslr .byt'clk'.O 
Iflg > = - + l 



.end 



.display lockout 



Listing 5: Assembler source code lor ■dk5632' 

p ut ■ @0 cl ockset. STC 
opt nos 



' clock fi alarm setup 

- written 12-02-85 w.|. brier 

• revised 1-18-87 

• copyright (c) 1985 

• all rights reserved 

• use with clock-calendar 123 
■ 

■ set time of day: sys 5632.0 

• set alarm lime: sys 5632, 1 

• enter time in 24 hour format 



• <« program assignments >» ■ 



ndx - 
mode = 
color 
keychk = 



$dO 

$d7 

$fl 

$033c 



.keyboard queue 
;40/a0 column mode 
;neMt attribute 
;key decode vector 



curon 


^ 


$cd6f 


.flash cursor 


curofi 


^ 


$cd9f 


,kill cursor [40 col) 


curot2 


L 


$cdac 


;kjll cursor [80 col) 


sigvo 


'^ 


$d4i8 


; volume contro 


Iod2 


=z 


$dd08 


;timeof day clock#2 


mmu 


= 


$ffOO 


:memory configuration 


chrout 


=. 


$ftd2 


;outputabyte 


getin 


^ 


$ffe4 


;get a byte 


plot 


^ 


$fffO 


;posit^o^ cursor 


;mjscel aneous pointers. , . 




ptr 


= 


$fa 


:zero page pointer 


ctr 


4 


$fc 


; counter 


1 

, clock-calendar locations. 




altc 


^ 


$l3ie 


; alarm register 


aflg 


=. 


$1320 


;alarm enable flag 


1 

;v<deo constants. . . 




wht 


= 


5 


; white text 


or 


= 


13 


[Carriage return 


del 


= 


20 


; delete 


esc 


^ 


27 


;escape character 


right 


= 


29 


; cursor right 


cir 


^ 


147 


; clear screen 


yel 


= 


T58 


; yellow text 


cyn 


^ 


159 


;cyan text 



= $1600 



5632 



;# n 

;# c-1 28 lime/alarm setup # 
;# # 

-,it»itftttitititititffitlf*tifftit 



[initial setup, 
slim and Wl 

sia sflg 

Ida color 

pha 

ida mmu 

pha 

Idx #14 

sb: mmu 



inx 

stx 

Ida 

sta 

jsr 

Ida 

jsr 



sigvol 

#183 

keychk 

chime 

#ctr 

chrout 



[display input prompt. . . 

stimOl Idx #2 

Idv #0 

jsr pi Ota 

Ida sflg 

asl a 
tax 

Ida ptab.x 

Idy ptab + 1,x 

jsr prnt 

Idx U2 



sec 
tya 
sbc 
tay 

jsr 
jSr 
sta 



§7 

plota 

drq 

ctr 



;mask garbages. . . 

[set entry mode flag 
[current attribute 
[save 

;conliguration 
,save on slack 

;eriable kernal 

[maximum volume 

;bypassf keys 
[Signal user 

; clear screen 



;row 

[Column 

; position cursor 

[entry mode 

[double 

[becomes prompt offset 

[prompt address 

[Output 
;row 



[generate column value 

; position cursor 
[dear keyb'd queue 
[Clear input counter 



[letch user input. . , 
stim02 sei 

isr curon 



; interrupts off 
;fJ3sh cursor 
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^ 



stim03 



stim04 

Jiller S 
stimOS 



stimOe 



r 

jsr 

beq 

pha 

bit 

bpl 

sei 

\si 

Cit 

jmp 
jsr 

I 

Store 
pla 

Idy 

beq 

cmp 

beq 

cpy 

bcc 

cmp 

bne 
beq 



get in 
sUmOS 

mode 
Etim04 

cjrot2 

stimOS 
curofi 

input, . 

ctr 

#del 

EtimOl 
#4 ' 

stimO? 

stim02 
stimOS 



Slim07 cmp#'0 

bcc slim02 
cinp#'' 
bcs stim02 
jsr chrouT 
sla buf.y 
inc cTr 
Cpy #1 
bne slim02 
Ida ffrighl 
jsr chTOut 
jmp stim02 



; encode time 
slimOS Idx 
Ida 

]sr 
cmp 

bcc 
sl]m09 jsr 

jmp 
stimTO sla 
Idx 
Ida 
jsr 
cmp 
bcs 
sia 
Ida 
Sla 



into bed, , , 

buf 

but + 1 

ascbcd 
ft$24 

stimlO 
buzzer 
slimOl 
tQdc + 2 
buf + 2 
buf + 3 
ascbcd 
#S60 
stim09 
todc + 1 
#0 
todc 



:confirm time entry. . . 
Idx #4 
Idy #0 
\ss plota 

Ida ff<timp3 
Idy #>timp3 
jsr pml 
jsr chime 
jSr cirq 
sijml 1 jsr getin 
cmp#'n 
beq sljmTS 
cmp#'v 
bne stim 1 1 
Ida sfig 
beq stiml2 



: interrupts on 

ifelch keypress 
;no input 
;save keypress 

;40 columns 

;kiJI 80 col cursor 



;kill 40 col cursor 



[retrieve keypress 
;fetch count 



;inpLil deleted 
;more input needed 

;not <re[Ljrn> 

;finJshhed 



;out of range 

;out of range 

; echo digit 

, store 

:bump character count 

;IODp 

;jump over colon 
,loop 



;telcli hours (tens) 
;fetch hours (units) 
[Convert 



[illegal value 

; reenter 

[Save 

[fetch minutes (tens) 

;fetch minutes (units) 

[convert 

[illegal mmute value 
;save 

,zero seconds 



bcc slim 13 



[^s^m 



[convert 24 hour entry to 12 hour . . 



sed 

sec 

sbc #S12 

dd 

or a #128 

sla todc +2 

^ 

[Set clock registers, . . 

set 

stimIS Ida tod2 + 7 

and #127 

sta tod2 + 7 

Idx #2 

Idy #3 

stim14 Ida todc.x 

sta tod2,y 

dex 

dey 

bne stim 14 

sta tod 2 

di 

h 

[restore system & exit, . . 

stiml5 Idx #173 

Idy #0 

stx key oh k 

Ely sigvol 

pla 

sta mmu 

pla 

sfa color 

rts 



/correct?' 



[decimal mode 

[Change to 12 hour time 
[binary mode 
;set pm bit 
[Save hours 



icontrol register 
[Setting time of day 

[todc offset 
[tod 2 offset 
[fetch time&. . . 
[Store incia #2. . . 
[hardv^are registers 

[loop 

[Start clock 



,e-nable f keys 
;sound off 

[restore configuration 

[restore attribute 



[fetch keypress 
; abort 
[loop 
[Setting tod 



[set alarm lime & enable Mag, 



Idx lode +2 



Idy 
stx 

sty 
sta 
jmp 



todc+ 1 
allc 
alEc + 1 
atlg 
stim 15 



[set time of day. . . 
slimT2 Ida lode + 2 
beq stim 13 

cmp #$12 



[entered hours 
lentered minutes 
;set alarm register 

;set alarm flag 
;exit 



[hours 

[ismidnite 



[Convert ascii to bed 




ascbcd and fllS 


[uinits to binary 


sta 


clr 


[Store 


txa 




;swap tens 


asl 


a 


;shifi tens to. . . 


asl 


a 


[high nybble 


as 


a 




a^ 


a 




ora 


ctr 


[oombine nybb es 


rts 






; position cursor 




plota cic 






jmp 


plot 




.print to screen 




prnt sla 


ptr 


;save text pointer 


Sly 


ptT+1 




Idy 


#0 


[Offset 


prntOI da 


(pfr).y 


[fetch 


beq drq 01 


;exit 


^ 


chrout 


[print 


lr»y 






bne 


prntOI 


[loop 


[dear keyboard queue 




drq Ida 


#0 




sta 


ndx 




cIrqOl rts 






^ 

; buzzer 






buzzer Ida 


#6 




Idx 


#251 


. 


Idy 


#33 




bne 

+ 


signal 




F 

[Chime 






chime Ida 


#50 




Idx 


#250 




Idy 

1 


#T7 





Signal sta 54273 
six 54273 
Sly 54276 
dey 

sly 54276 
rts 



[input prompt look-up table 
ptab .wor timp1,timp2 



[input prompts 


timpl 


.by I yel 




.byt correct time (hh:mm):" 




,bytcyn,'[3spcs . ,esc,'q',0 


timp2 


.byt yel 




,byt 'a arm time (hh. mm)'' 




.byt cyn,'l3 spcsj,',esc/q',0 


timp3 


, byt wht 




.byt IS this lime cor' 




.byt reel {y/n)?',0 


p 


h 



.program storage 
buf * = * + 4 
sf Ig - = - + 1 

lode * = li. + 3 



end 



[input buffer 
.entry mode 
;bcd time(s.m h) 



Liadngfi: Source code fordate^sei proHratu ■dt5632' 

put"@0:daiesei,src 
opt nos 



' calendar date setup 

• written 11-29-85 w.[. brier 

• revised 1-18-87 

• copyright (c) 1985 

• all rights reserved 
• 

• use with clock-calendar 1 28 

• set date sys 5632 

• enier date as: mm-dd^yy 



• program assignments 

r 

system vectors S pointers. 

ndx - $dO 

mode = Sd7 

color = $fl 

keychk = $033c 

curon = $cd6f 

curofi = Scd9f 

curof2 = Jcdac 

sigvol = $d4l8 

mmu = SftOO 

chrout = $ffd2 

getin = $tfe4 

pfot = SfffO 

h 

[miscellaneous pointers, - . 
ptr = $fa 

clr = Sfc 

[Clock-cafendar location, 
tdtc = $1312 



[keyboard queue 
,40/80 column mode 
[next attribute 
, key decode vector 
[flash cursor 
,killcursorf40col) 
[kill cursor (80 col) 
.volume control 
[memory management 
[Output a byte 
igel a byte 
.position cursor 



[zero page pointer 
.counter 



[bed date in clock 



[Video constants. 


whi 


^ 


5 


cr 


=. 


13 


del 


^ 


20 


esc 


^ 


27 


right 


= 


29 


clr 


^ 


147 


yel 


= 


158 


cyn 


= 


159 



'=$1600 



[White text 
.carriage return 
[delete 

[escape character 
[cursor right 
.clear screen 
lyeilow text 
[cyan text 

.5632 



[Signal user 



[################# 
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;# C-13B calendar dale setup # 



.inilial serup. . . 
date Ida color 
pha 

Ida mmu 

pha 

Idx #14 

six mmu 
"mx 

stx sigvol 

Ida #1S3 

sta keychk 

jsr chime 

Ida #clr 

jsr chrdtjl 

» 
;display input prompt. , . 

dateOl Idx tf2 

Idy #0 

jsr plota 

Idx #<datepl 

Idy #>datepl 

jsr prnl 

Idx #2 

Idy #14 

isr ploia 

jsr clrq 

Sla ctr 

:letch user input. . . 
daEe02 sei 

I& curon 

di 
date03 |sr gel in 
beq date03 

pha 

bit mode 

bpl daie04 

sei 

jsr curol2 
cli 

jmp daie05 
date04 |sr curofl 



; filler & store i 

date05 pla 
Idy 
beq 
cmp 
beq 

daieoe cpv 
bcc 
cmp 
bne 
beq 

dale07 cmp 
bcc 
cmp 
bcs 

jSf 

sta 
inc 
cpy 
beq 
cpy 
bne 
dateOa Ida 
jsr 
jmp 



nput . . 

ctr 

daleOe 

#del 

dateOl 
#6 

date07 

#cr 

date02 

date09 

#■0 

date02 

If: 

dateO? 

chroul 

buf.y 

ctr 

#1 

dateOS 

ff3 

daieO? 

#nght 

chTOUt 

dale02 



lencode date inio bed. 
daleOS Idx #2 

Idy #5 
datelO Ida buf.y 

and #15 

sta ctr 

dey 

Ida buf,y 

asl a 

asl a 

asL a 



asl 

ora 

sEa 

dey 

dex 

bpi 



a 

ctr 

dbul.x 



dalel 



;current attnbute 
,save 

;configuration 
jsave on stack 

;enable kernal 

; max I mum volume 

; bypass f keys 
; signal user 

, clear screen 



;row 
; column 

;posit ion cursor 
; today's dale' 

; display prompt 
;position cursor , - 
;to accept. . , 
; user input 
; clear keyb'd queue 
; clear input counter 



interrupts off 

;f1asti cursor 
, interrupts on 
;fetch keypress 
; no input 
;save keypress 

;40 columns 

;kill SO col cursor 



;kill 40 col cursor 



; retrieve keypress 
;teich character count 



; dele led 

;more input needed 

;not <relurn> 
,end ot input 

;out of range 

;out of range 
;echo character 
; store 



;test for leap year entry. 
pha 

Ida dbuf + 2 
jsr bob in 
Idx #$29 
Isr a 
bcs datell 
Isr a 
bcs datell 
idx #$30 

datell six clut+1 



^combine w/units 
;save bed digit 



;loop 



jsaue month value 
;year entry 
.change to binary 
;non-leap year test value 
;divideyear by2 
; non-leap year 



ibump lest value 
;tesl value 



;check for valid input month. 



pla 

bne datel3 
datel2 jsr buzzer 

]mp daieOi 
date13 cmp#S13 

bcs date 12 

L 

h 

icheck for valid input day. 
jsr be bin 
tax 
dex 

Ida dbuf+1 
beq dale 12 
cmpclut,x 
bcs daieT2 

h 
T 

.confirm entry. . . 
Idx #4 
Idy #0 
jsr plola 

Idx #<dalep2 
Idy #>datep2 
jsr prnt 
jsr chime 
jsr clrq 
date14 jsr getin 
cmp #'n 
beq dale 16 
cmp #'y 
bne datei4 

L 

i 

itransfer date to calendar 

Idx #2 
datelS Ida dbuf.x 
sta idtc.K 
dex 
bpl daielS 



iinput month 
inotzero month 
;errOT 
: reenter 

.loo high 



;change to binary 

;make table offset 
;entry day 
;zero for day 
; table 
;too high for month 



:'is this correct?' 



; fetch keypress 

;aborl 

;loop 

storage. . - 
; offset 

;store in calendar 
;loop 



;loop 

jump over hyphen 
;loop 



,bcd offset 
;ascii offset 
; fetch units 
;mask hi nybble 
; store 

;feich lens 

; shift lo nybble. , 

;lo high 



;restore system & exit, . . 




dateie Idx #173 




Idy #□ 




stx keychk 


; enable f keys 


sly sigvol 


;shut off skJ 


pla 




sta mmu 

pla 

sta color 


; restore configuration 


; restore attribute 


ftS 

^ 




i 


i===^== ======== 


;change bed digit to binary digit 


be bin pha 


;save bed digit 


Isr a 


; shift tens ny bb e. .. 


isr a 


;to lo position 


Isr a 




Isr a 




tax 


;becomes tens countei 


pla 


;fetch bed digit 


and #15 


;mask lens nybble 


cic 




bcbini dex 


;slep tens counter 


bmi bcbin2 


;finished 


adc #10 


;add 10 10 units 


bne bcbinl 


;loop 


bcbin2 Tts 





; buzzer tone 
buzzer Ida #6 
Idx #251 

Idy #33 
bne signal 



;frequency 
; duration 

;sav^ooth 



; chime tone 

chime Ida #50 

Idx #250 

Idy #17 



; triangle 



;slgnal user 

signal sta 54273 

su 54278 

sJy 54276 

dey 

sty 54276 

rts 



igate tone on 



;clear keyboard queue 
clrq Ida #0 

sla ndx 
cIrqOI ris 



; position cursor 
plota cic 

jmp plot 



.print to screen 
prnl six ptr 

sty pir + 1 
Idy #0 
prntOI Ida (plr),y 
beq clrq 01 
jsr chroul 
iny 
bne prntOI 



; calendar lookup table 

Glut .bytS32 
.byl $29 
,byt$32 
,byi$31 
.bytI32 
.byt $31 
.byt $32 
.byt$32 
.byt $31 
,byt S32 
byt $31 
.byt $32 



; St ring address 

; offset 
; fetch 



:loop 



;jan + 1 
;feb+l 
:rnar+ 1 

.apr + 1 
;may+1 
;jun+1 
;jul + 1 
;aug + 1 
;sep + 1 
;oct + 1 
;nov+ 1 
:dec4-1 



I 



,user prom pis 

datepl .byt yel,'todav"s date:' 

.byicyn;(3 spcs]-(2 spcs]-' 

.byt esc;q',0 

datep2 byt wht.'is this date' 
byt' correcl(y/n)?',0 



;program storage 
buf . = ' + 6 

dbuf •--+3 



.end 



; input buffer 

;date encoding buffer 
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Amiga Dispatches 

by Tim Grantham, Toronto, Ontario 



This edition of Amiga Dispatches will be the last to appear in the 
original Transactor. I though! it fitting then, that this column cover a 
subject I hope will soon be very important to many of you - moving up 
InDm programming the Commodore 64/128 to prc^ramming on the 
Amiga, 

The idea for this column came from an electronic lelter I received from 
Tom Brown on PeopleLink. Tom wrote; 

/ am sure I am not alone in my confusion, frying to leap the 
gup from a 128/64 fo (he Amiga. Perhaps you could give some 
advice to the flood of new Amiga users: 

1) What is necessary for the beginning Amiga programmer lo 
iearn (assuming a background in Basic and 6502 assembler)? 

2) Where does one get rhaf info i.e. a suggested reading list? 

3) What files should a newcomer look for in the public domain 
for programming, disk doctoring, and so on? 

4) Which programming language? Look for a Basic compiler or 
go the route with C (or even ML)? Which C compilers lo use 
without breaking the budget? 

As 1 have discussed in previous columns, the journey from the land of 
8-bit machines to the Olympian heights inhabited by the Amiga is not 
an easy one. For me, and I suspect for most others, it meant not only 
learning an entirely different operating system but learning C as well. 
(The fruits of my efforts can be found in Keep vH, which 1 have 
posted to all the major information networks and which will be 
available on the next Transactor Amiga disk.) For this edition of AD, I 
approached a number of people who have climbed that steep learning 
curve and asked them to suggest ways to make it less arduous and more 
enjoyable. [ suggested that they target their answers to the person I 
consider to be a typical Transactor reader - one who Is fairly well 
versed in Commodore BASIC; who has some acquaintance, at least, 
with 6502 assembly language; who is prepared to spend some lime and 
money on books and tools; but who has little experience or knowledge 
of the more complex operating systems found on mulli-user computers 
andon the Amiga. 

Many people consider C to be the 'natural' programming language for 
the Amiga. Jim Butlerfield, however, has had his Amiga for over two 
years and very little of that time has been spent programming in C. A 
friendly programming environment is important to Butterfield, and C, 
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though powerful, has never been called friendly. He suggests that those 
wishing to start programming the Amiga consider using AmigaBA- 
SIC: 'Though generally ignored, AmigaBASIC is very good - a very 
nice, very fast BASIC." Certainly not least among its virtues is the price 
- AmigaBASIC is supplied free with all models of the machine. 

There are some adjustments that have to be made: "Losing line 

numbers is a bit of a shock at first, but you soon get used lo it Note also 

that AmigaBASIC provides only 7 digits of accuracy, not 10, like 

Commodore BASIC, and you must make provision for that in your 
code." 

Jim points to other advantages of starting with AmigaBASIC: a chance 
to become familiar with the Intuition environment while working with a 
familiar language; good documentation and good example programs 
provided with the machine; and the ability to call Amiga library 
functions from within BASIC source code. 

While Nick Sullivan, Transactor editor and author of TransBASIC, 
Music Assembler and many other programs for the 6^, grudgingly 
agrees with Jim that AmigaBASIC may be a good place for the novice 
Amiga programmer to start, he feels that eventually the serious pro- 
grammer does best to team C. The data structures used by the Amiga's 
OS are documented as C structures, and most of the examples in the 
programming manuals are written C, as in fact was most of the OS, 

There are currently no "C for the Amiga'^ type books for those new to C. 
Nick suggests C Primer Plus by Mitchell Waite, Stephen Prata and 
Donald Martin, published by The Waite Group. This text, though not 
without its faults, does provide a reasonably thorough and accessible 
introduction to C. Nick also recommends having the Kernighan and 
Rttchie "bible" on C handy for reference. 

Also recommended by all those I spoke with are the official 
Com mo do re- Amiga reference manuals: the Amiga Intuition Reference 
Manual, the two ROM Kernel Reference Manuals, the Hardware 
Reference Manual (all published by Addison-Wesley), and the Amiga- 
DOS Manual, published by Bantam Books. In every case il was 
suggested that the beginner start with the Intuition manual. 

The two commercial C compilers come from Lattice and Manx. They 
complement each other in terms of strengths and weaknesses; neither 
offers the perfect solution. Both, however, are excellent compilers. 
Though Nick himself uses the Manx Aztec compiler, he acknowledges 
that beginners may find the Lattice compiler somewhat friendlier, with 
its more stringent type checking and its more verbose error messages. 
In addition, it is the '^official" Commodore- Amiga compiler and was 
developed in cooperation wilh C-A, Lattice claims that their latest 
revision (4.0) has overtaken the Manx product in terms of theefficierKy 
of the code it generates. 

The Aztec C provides such useful features as precompiled header files 
and support for the other CPUs in the 68xxx family - neither of which is 
provided by the Lattice product. 
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Bolh compilers provide extensive docunientation and a number of 
utilities. Neither will teach you how to program in C, 

Once you have a compiler, you're up and running- you will require no 
other software to write programs. However, there are a number of 
utilities so useful !o the Amiga programmer as to be deemed essential. 
At the lop of the list, as far as Nick is concerned, is a command shell, 
such as the PD csh by Mall Dillon, or the Shell program produced by 
Metacomco. These provide command line history, editing and aliases to 
minimize the amount of retyping necessary. Next on the list of recom- 
mended support software is a recoverable RAM disk, such as the NVO; 
supplied with the Comspec RAM board, or the PD program RRD, by 
Perry KJvolowitz. These are similar to AmigaDOS RAM: device but 
retain their contents during a warm reboot - which saves you having to 
restock RAM after a crash during program development. Also recom- 
mended is a good text editor, Nick user UEdit, a fine programmable 
shareware editor by Rick Stiles, 

Nick also recommends Power Windows, published by Inovatronics. 
This product lets you interactively set up tlie windows, menus, screens, 
gadgets andrequesters you want to use in your program, h then 
automatically generates the C, Modula 2 or Assembler source code for 
these Intuition structures. It can import images you have stored as 
"brushes" in Deluxe Paint, and convert them to Image structures for 
use in menus and gadgets. Doing this sort of thing by hand can be 
enormously lime consuming, as I can tell you, having spent an entire 
evening drawing four simple gadgets on graph paper and converting 
them into hex data. "If Power Windows had been out right at the start," 
says Nick, "there might be a lot more Amiga software available now." 

Other useful utilities mentioned by Sullivan include Meladigm's Meta- 
scope windowing debugger, Manx's SLD source level debugger [see 
below), Gimpel Lint, a source-code syntax checker by Gimpel Soft- 
ware, Deluxe Paint H by Electronic Arts and Blitzfonts, a text 
display speedup program by Hayes Haugen. 

Chris Zamara. YATE (Yet Another Transactor Edilor), and Sullivan's 
programming partner, has some advice for new Amiga programmers 
trying to make sense of the machine: "Don^l read the RKM (ROM 
Kernel Manual) graphics documentation first! It think it was written 
fc>efofe the Intuition manual and goes into a lot of detail that is confusing 
to someone just starling. Start with the fntuidon Monuaf. As long as you 
know where to find the RastPort pointer for your screen or window or 
whatever, you're ready to start drawing." 

Zamara had had some formal training in high level languages before he 
entered the S-bit world but was new to C. His first attempt to read the 
Iniuition Manual left him quite confused. However, after reading ihe 
Kernighan and Ritchie text and spending many hours poring over the 
Lattice C compiler manual, he gave it another try. "Once 1 got comfort- 
able with structures and pointers, [ reread the InluHton Manual. Then 
everything fell into place," 

Larry Phillips is one of the Sysops of the AmigaForum on CompuServe, 
By day a mild-mannered mainframe technician, at night he communes 
with all manner of Commodore cultists. Larry does not share Transac- 
tor's C language bias, being instead a devotee of Modula-2, the lan- 
guage created by Niklaus Wirth as a successor to his earlier Pascal, 
Larry's advice to 64/128 programmers; ''For those who are familiar 
with COMAL, I always recommend Modula-2, and now that 1 have 
Benchmark (the commercial Modula-2 compiler wrillen by Leon 
Frenkel) it's the one I recommend specifically. Some books for Modula- 
2 I would recommend: Modula-2. A Seafarer's Guide and Shipyard 
Manual, by Edward Joyce; and Modula-2 Primer, by Stan Kelly-Bootle 



(a Waite Group book). These are aimed at beginners, and are tutorial in 
nature. One a little more advanced is Modula-2, A Software Develop- 
ment Approach, by Gary Ford and Richard Wiener. This one is very 
good, and really gets into program construction, especially in larger 
projects where more than one programmer is involved. 

"Aficionados of Basic have the choice of going to AmigaBasic. with its 
very COMAL-like structures and hopeless user interface; or going to 
another language. Others available are Forth, APL. Fortran, C, Icon, 
ARexx, LISP, Pascal, Draco, Pilot, LOGO, and probably a few I've 
forgotten about. Of the above, PD or shareware versions are available 
for Forth, C, Icon, LISP (XLisp), Draco, Pilot, and LOGO. 

"Forlheassemblertypes, all Icansay is, good luck wading through the 
Amiga documentation and having to learn C to translate to a civilized 
program. There is a book called Amii^a Assembler Language Program- 
ming, by Jake Commander, This is not the greatest assembler book I've 
seen, but will gel them started and help them to understand the Amiga 
ways of doing things," 

Assembly language on the Amiga is a rather different proposition, 
concurs Jim Butlerfield, "68000 machine language is the same in 
nature (as 6502 ML) but it's in a much more complex environment," 
That statement lies at the heart of the difference between single user 
computers like the 64/128 and the multi-user, multitasking OS of the 
Amiga. 

Those who wish to program on the Amiga cannot assume they have the 
machine to themselves. The Amiga's OS permits as many programs as 
can fit into memory at once to run simultaneously. Those programs 
must, therefore, behave as good Amiga citizens - requesting resources 
such as memory and i/0 devices rather than simply commandeering 
them; sharing devices with other processes; and releasing resources 
when finished with them. As I have written in previous columns, it's 
rather like dealing with a pervasive, though efficient, bureaucracy. 

The Amiga programmer is actively discouraged from delving into 
Amiga Kernel libraries directly, for good reason: CBM is constantly 
improving the OS. They will guarantee only one unchanging address 
between revisions: $00000004, otherwise known as AbsExecBase. 
This contains the address of ExecBase, the portal to the Exec library, 
A!I routines in Exec, including OpenLibrary(). which is used to open 
the other libraries, are addressed as offsets from ExecBase. The address 
of any routine, of any library, even of ExecBase itself, may change at 
some future date. For example, Dale Luck, architect of much of the 
Amiga's graphics libraries, has ,suggested that about 50K of Kickstarl's 
current code will he removed from ROM in 1.3 and put onto the 
Workbench disk. This will make room in ROM for new graphics 
routines. Dale didn't say what these routines will tie for, but I think it 
likely they will provide support for X-Windows. (For an explanation of X- 
Windows. see Ihe last edition of AD.) 

The need to coexist with other programs and the necessity of accessing 
system routines indirectly requires a fundamental change in attitude on 
the part of someone used to programming a single user machine. 
Rather than roiling up one's sleeves and digging in, one must learn to 
keep all interaction with the system at arm's length. It means playing by 
the rules, rather than inventing one's own. The reward is an enormous 
gain in power. After all, you have 256K of optimized code in Kickstart 
to tap. as opposed to the I6K of BASIC and Kernal ROM found in Ihe 
C64. 

[f you do decide to pursue assembly language on the Amiga, Butterfield 
highly recommends Kickslort's Guide to Ihe Amiga. Kicksfarl is an 
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English technical journal. The edilors have gathered together much of 
!he informalion published in the magazine^ edited it and published it in 
book form - rather like an Amiga version of Transactor's The Complete 
Commodore inner Space Anthology. Butterfield notes that copies are 
hard to get in North America at present, but efforts are underway to 
import them. 

You will also need an assembler, of course. CI u.rk's Gibbs's A68k is a 
PD assembler thai is compatible with the assembler include files found 
in the programmer's support disks, which ore available from CBM 
West Chesfer. Alternatively, these files are also included with commer- 
cial assemblers from Melacomco, HfSoft. Lattice and Manx, tonamea 
few. 

AmiRxpo 

I shall finish up this edition of AD with the promised report on the 
AmiExpo show held in New York, October 10-12. I was unable to 
attend but Nick and Karl went and returned bearing a stack of press 
releases. Attendance was over 8000 for the three days, with more than 
50 vendors exhibiting. A brief summary of products of particular 
interest to readers of the Transactor {or at least, of interest to me) 
follows. All prices are in US dollars. 

Byte by Byte were offering a seif-powered RAM expansion board for the 
A500; $299.95 unpopulated, $699.95 fully populated with 2 Mb of 
RAM. Memory checking software is included. . , Discovery Software 
International announced a C-Shell for the Amiga called Amnix that 
provides over 40 resident commands, command line history and 
editing, and environment variables for $49.95. They also announced 
DX-16 and DX-1 1, Amiga emulations of the Hewlett-Packard HP-16C 
programmer's calculator and the HP-llC scientific calculator respec- 
tively. Both fully multitasking programs are available for $49.95, . . 

Synthia is a digital synthesizer program for creating IFF instruments. It 
uses a variety of techniques, including additive, imerpolative and 
subtractive synthesis, and can modify existing instruments with such 
sonic brushes as true reverb, comb filtration and waveshaping. It 
includes an IFF music player and appears to be a very powerful 
package, irs yours for $99 from The Other Guys. . . Other music 
software demoed at AmiExpo included The Sound Quest, a Roland 
D-50 synthesizer editor/ librarian package by Sound Quest Inc. of 
Toronto; and Roger Powell's long-awaited Texture port to the Amiga, 

ASDG Inc. had a very strong presence at the show. Of particular 
interest was the Satellite Disk Processor, an interface for the AlOOO 
and A2000 that will support up to 56 SCSI devices and two ST-506 
devices. ASDG claims the card uses its onboard 68000 CPU, 512 Kb 
cache, DMA and MMU to provide over "^00 Kb per second average 
user through-put". Also announced were further details on the 2000- 
and-1 expansion box for the AlOOO. This unit provides two Zorro I 
slots (for cards designed to the original Zorro spec), five Zorro II slots (for 
all those great A2000 cards), three IBM PC/AT slots (lor the BridgeCard 
and other PC/AT cards), one coprocessor slot (for the 68020/68881), 
two 3.5 inch drive bays, one 5.25 inch drive bay and a 200 wall power 
supply The only tiling it doesn^t provide, at $799, is the A2000's video 
slot. . . 

Spirit Technology showed their Inboard internal memory expander for 
Ilie A500. The unit plugs into the 68000 socket and can provide up to 
1 .5 Mb of RAM and a battery- backed clock/ calendar. The unpopulated 
board sells for $279. There have been reports of .severe damage to the 
!Tiachines of some of those who have installed this board so caveat 
emptor. It should be noted that Spirit Technology "guarantees Inboard 
The Transactor 71 



to be the finest and most reliable desii^n available or your money back". 
Whether this is a guarantee that the unit will actually work is open to 
interpretation. . . 

Manx's Jim Goodnow was showing the new Aztec C Source Level 
Debugger, This product will answer the prayers of many, me not 
least. It provides a facility called "back tracing", which allows the user 
to display all active function names and the values of passed parame- 
ters. In addition, active frame context switching makes it possible to 
examine the variables that are visible from any active function, and 
reusable command macros can be used to customize Ihe debugging 
environment. The windowing capabilities of SDB let the user display C 
source and command output separately, with a third window for 
entering commands, Alt of these goodies and more are available for 
$75. Manx also announced version 3,6 of their C compiler and declared 
that a future release would include an ANSI standard compiler, 

Spencer Organization, Inc. showed APL68000 for the Amiga. Accord- 
ing to the company, the APL Interpreter supports APL multitasking 
(whatever that is), is fully Intuitional ized' (my expression), is provided 
with a full interface to Amiga graphics functions and has a built in APL/ 
ASCIIterminalemulator All this and more, folks, for only $99. . . 

Meridian Software Inc., publishers of ZingI, were sellini^ The Demon- 
strator. If you remember my description of the PD program Journal 
a couple of issues ago, this prc^ram will ring a bell. It will record one's 
interaction with the Amiga and play it back upon demand. One can 
apparently add text windows and speecli lo create elaborate demos or 
tutorials. In addition, one can control Ihe speed of the playback. The 
price; £39,95, , , Galileo sounds much like an Amiga version of the 
excellent Sky Traveller program for the C64. It can be used lo view 
the sky from any point on earlh for any date this century and displays 
the constellations in nine different levels of brightness. The program 
was developed by Mike Smilhwick, an astronomer and computer 
graphics artist currently working lor NASA's Ames Research Center 
You can see the stars on your Amiga for $69,95. . , 



That's all, folks! 

I am sorry to say that this will be the last edition of Amiga Dispatches 
written by me. Dueloanumberof recent changes in my personal life, 1 
no longer have Ihe lime for Ihe many hours of research this column 
requires. Rather, it will be spent on more important matters - my wife 
Cafe and my young son Alex. 

I ufUl be contributing Ihe occasional article to the Transactor for the 
Amiga: first on the list is the Amiga 2000 review I have promised for so 
long. It will include a look at Ihe B2000, otherwise known as the West 
Chester 2000. 1 have yet to finish putting it through its paces, but f can 
tell you this: it^s a significant improvement on the West German 2000. 

1 will be placing Ihe AD keyboard into the capable hands of Don Curtis 
from Denver, CO. His first column will appear in the premiere issue of 
TA. In the meantime, let me know what you Ihink: of life, love or the 
68030. 1 have drawn a great deal of pleasure from Ihe electronic and 
paper letters I have received while writing AD. 1 hope you will continue 
to include me in your Amiga adventures. I can be reached at The 
Transactor or electronically via: 



CIS: 71426,1646 
PeopleLink:AMTAG 
BIX: dispatcher 



GEnie: t.grantham 

Bloom Beacon BBS: Tim Grantham 

(416 297-5607) 
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Change The Mouse 
Pointer hi AmigaBasic 



Anthony Bryant 
Winnipeg, Manitoba 



. . ■ a short program to change the default mouse pointer to one of your own design. 



Basic programmers may wish to use a custom pointer in a program, or 
C or assembler programmers may wish to try out a new pointer design 
(or sprite desig;i) quickly and interactively. With AmigaBasic's LIBRARY 
statement, you can use system functions besides those available di- 
rectly with Basic commands. Intuition's SelPointer() and ClearPoinler() 
functions will be used in this program to switch to a new pointer and 
back to the default again. 

U^ing Libraries in AmigaBasic 

The arrow pointer is the default pointer used by Intuition so to change it 
{"it"inhardwareissprileO), we have to "gel into" Intuition. We can call 
Intuition functions, as we can call functions in other system libraries, by 
using the LIBRARY command. The LIBRARY command, given the 
name of a library (in this case "intuition, library '), will make the 
functions of that library available from AmigaBasic, The catch, how- 
ever, is that for LIBRARY to work, it needs the ".bmap" file associated 
with the library being used, which gives Basic information about the 
functions in the library, like their addresses in memory and what 
parameters they accept. 

Since the information contained in a ",bmap" file is specific to a 
particular version of the operating system, the file should be custom- 
made for the system you're using. The program "ConvertFD" in the 
"BasicDemos ' drawer on the AmigaBasic disk {version 1 .2] will make a 
".bmap'' file from a "fd'^ file, which contains more genera! information 
about functions within a library. The "id" files (or all libraries can be 
found in the "fdl.2" directory on the AmigaBasic disk. You can create 
the "intuition-bmap" file that you'll need with the command: 

ConvertFD :fd1.2/intuitionJib.td 

You'll also need the .bmap file for the exec library, so run ConvertFD 
on the hie "exeOibJd" in the \d\ 1 directory as well. You should keep 
these files around for future programs; a good idea is to make a "libs'' 
directory on your AmigaBasic disk and put all your .bmap files there. 
You can then use them with the LIBRARY statement by specifying the 
full pathname of the files, like: 

LIBRARY Mibs/intuilion.iibrary" 
LIBRARY Mibs/exea library' 
etc, 

(Assuming that your current directory when you run the Basic program 
is somewhere on the same disk,) 

Once the LIBRARY command has been used to link you with the 
system library of your choice, you can call the routines by name, 
passing them parameters just as in a C program. Routines that return 
values must be declared with: 

DECLARE FUNCTION FunctionName LIBRARY 



using a '&' at the end of the function name if it returns a long word (as 
most system functions do). 

You've probably scanned the several demo programs that use the 
LIBRARY statement to see how it works, and you may have looked 
through the (dl 1 tiles to familiarize yourself with the names of all those 
system functions that you are so eager to try. But you really need the 
manuals - Intuition and ROM Kernal - to make sense of the libraries. 

Intuition: The Manual 

Chapter 4 of the Intuition manual explains the functions used to create a 
custom pointer in a window: 

SetPointer (Window, Pointer, height, width, xoffset, yottset) 

Changes the sprite definition in the given window, and 

ClearPoinler (Window) 

Restores the default pointer In the given window. 

The program that follows is a simple translation to AmigaBasic. It's 
basically a matter of passing SetPointer() the right parameters, then 
calling ClearPointerO to set the pointer back to normal again. We gel 
the pointer to the Window with the WIND0W(7) function, and the left, 
width, and offsets for the pointer are just part of the sprite definition in 
the DATA statements. 

Passing SetPointerf) the pointer to the sprite definition data Itself is bit 
trickier. Perhaps the easiest method would be to store the sprite 
definition in an integer array and pass SetPointer a pointer to the array 
via Basic's VARPTR function. The trouble with this approach is that 
sprite definitions, like any data that needs to be accessed by the 
graphics or sound hardware, must be in "chip" RAM. An unexpanded 
Amiga has chip ram only, so using an array would work fine, but the 
program would stop working if extra RAM was added to the syslem. To 
do the job properly, memory is allocated with the Al!ocMem() function 
in the Exec library - we can tell AllocMem(] to give us chip RAM, The 
sprite definition is stored in the chip ram with a POKEW (POKE Word) 
statement in a FOR, . .NEXT loop. 

Before the program ends, the memory that was allocated is released 
back to the system with FreeMemf). If this is not done, the memory 
allocated will be lost until the next syslem re-boot. 

To use the AllocMem and FreeMem functions, a LIBRARY command 
for "exec, library'^ must be used. Also, since AllocMem returns a 
longword result, it must be explicitly declared with DECLARE FUNC- 
TION, 

When you run the program (Basic's main "run" window should be 
active when you do this), it will display the new pointer until you click 
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the left mouse button, at which point it will switch back to the defaull arrow (or whatever 
you've set in Preferences) and Ihe program will end. Not much use in ilsell, but you can use 
the code to attach custom pointers to windows in your own programs. 

Change the RESTORE command to try any of the four pointers defined in the DATA 
statements, or try changing the data to make pointers of your own. To make your own 
pointers, you'll need to know a bit about how sprite definitions work. 

Creating Sprite Definition Data 

The dala that constitute the sprite definition are made up of two words per screen line for 
position and colour information. (The first and last two words in the definition do not 
actually describe the sprite, and should be zero in all definitions - the system will use these 
words for its own needs.) 

Both words together describe Ihe colour of each pixel on a single horizontal line of the 
sprite. A word is 16 bits, the maximum width of a sprite. The first word contains Ihe LSB 
(least significant bit) data and the second word has the MSB (most significant bit] dala; the 
two bits specify one of Ihree possible colours, or transparency: 



msb 
Colour 
Colour 
Colour 1 
Colour 1 



isb 

is transparent (blue) 

1 is med intensity (red 

is low intensity (black 

i is high intensity (red 



hardware colour reg. 17} 
hardware colour reg, 18) 
hardware colour reg. 19) 



A few examples of custom pointers are given in the program to show how the colours work 
[the data is in hexadecimal). XPoinler is a direct copy from the example given in C in the 
Intuition manual; XPlain is a one-colour version. 



t* 



'»* Change mouse Shape via Intuition Custom Pointer 

DECLARE FUNCTION AllocMemS LIBRARY 
LIBRARY "intuitionJibrary' 
LIBRARY 'exec.library" 

chip% = 2 'to tell AllocMem{) we want chip ram 

RESTORE XPointer 'which pointer we want 



READ pHeight%, pWidth%, pXOtfset%, pYOffset% 

pSizeS. = 2 ' (2 =♦ pHefght% + 3) '# of bytes required for sprite definition 

memS. = AllocMem&(pSizeSL, chip%) 'allocate some chip ram 

'** copy sprite data into chip ram ** 

FORi& = mem£cTO(mem& + pSizeS.) STEP 2 

READ x% 

POKEWi&,x% 

NEXTifi. 

'*' switch lo our new pointer -• 

CALLSetPoinIer(Wir^DOW(7),mem&,pHeight%.pWldIho/o,pXOffset%,pYOffset% 
PRINT "SetPo inter" 

PRINT "(Click left mouse button to ClearPointer)' 

'^' wait until user clicks left mouse button ** 
WHILE MOUSE(0)<>-1 

WEND 



«* 



switch back to normal pointer 
CALLCIearPointer(WIND0W{7)) 
PRINT "ClearPointer" 



■*■* 



CALLFreeMem(mem&, pSize&) 

LIBRARY CLOSE 

END 

' sample custom pointer data follows 



XPointer; 'three 

DATA 9,9,-5,- 

DATA &H00O0, 

DATA 5.HC180, 

DATA &H6380, 

DATA &H3700, 

DATA &H1600, 

DATA &H0000, 

DATA 5.H1600, 

DATA SH2300, 

DATA &H4180, 

DATA &H8080, 

DATA &H0000, 



-colour pointer 

4 

&H0O0O 

&H4100 

&HA2S0 

&H5500 

&H2200 

&H0O00 

&H2200 

&H5500 

&HA280 

&H4100 

&H0000 






« 41 



free memory and close libraries 



•* 



XPlain; 'one-colour (colour 01 only) 

DATA 9,9,-5,-4 

DATA SHOOOO. 8.H0000 

DATA &H8080. &H000O 

DATA &H4100, 5.H0000 

DATA fi.H2200, &H00O0 

DATA fi.H1400. &HO0O0 

DATA S.HO00O, &HO0O0 

DATA &H1400, &HO0O0 

DATA &H2200, SHOOOO 

DATA S,H4100, &HO0O0 

DATA &H8080, &HO0O0 

DATA &H0000, S-HOOOO 

SPointer: 'three-colour separated 
DATA9,9, -5, -4 

DATA &H0000, &H0000 

DATA &H0FC3, &H0000 

DATA &H3FF3, &H0000 

DATA &H30C3, &H000O 

DATA &H00O0, &H3C03 

DATA &HO000, &H3FC3 

DATA 5.H00O0, &H03C3 

DATA &HC033, &HC033 

DATA &HFFCO, &HFFCO 

DATA &H3F03, &H3F03 

DATA &H000O, &HO00O 

BPointer: 'two-colour box (colour 01 and 11) 

DATA 13, 16,-8,-6 

DATA SHOOOO. &H000O 

DATA &HFFFE, &HFFFE 

DATA &HC106. fi.HC006 

DATA &HC106, &HC006 

DATA &HC106, &HC006 

DATA &HC106, &HC006 

DATA &HC106, 8,HC006 

DATA &HFFFE, &HC006 

DATA &HC106. &HC006 

DATA &HC106, &HC006 

DATA &HC106, 5.HC006 

DATA &HC106, &HC006 

DATA &HC106, &HC006 

DATA 8.HFFFE, S.HFFFE 

DATA &H0000, &HO000 

K 
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FACTS BEHIND THE FLASHES 
The Amiga Startup Messages 

By Betty Clay, Arlington, Texas 



It is not unusual ior a computer to try to communkale with Jls owner 
during !he starl-up routines. Remember the flashing of the lights on the 
4040 and 8050 disk drives? On my 8050 drive, !wo flashes of the green 
LEDs indicate that things are fine. More than Two indicate a problem, 
and if there were such a thing as a local Commodore repairman, he 
would be helped if he knew how many times my drive was flashing the 
lights. 

Another way the earlier Commodores communicated with us was by 
printing the number of bytes free on the screen at startup. If the 
number was wrongs we knew that some of the RAM had failed to 
accept data during the startup routine, since the computer would 
assume that the end of BASIC was at the last location in which it could 
wrileandreadbackdala. If a memory chip became bad, the number of 
bytes free would be the same as the number lo which the processor had 
successfully written and read back its startup data. 

The Amiga has a rather elaborate set of diagnostics, If we only know 
how lo interpret them, 

THE AMIGA START-UP ROUTINE 

When you turn on your Amiga, it has a rather long and complicated set 
of routines through which it must go before it can allow you to interrupt 
it. As the startup process goes along, Amiga is trying lo let you know 
whether all is well. There has been a small problem with this, however 
- Commodore forgot to tell us what the signals mean! 

Here Is a list of the start-up routine activities: 

1 . Clear all of the chips of old data. 

2. Disable DMA and interrupts during the lest. 

3. Clear the screen. 

4. Check the Hardware (make sure the 68000 is working) 

5. Change the screen color to show whether this test was passed 

6. Do a checksum test on all the ROMS 

7. Change screen color lo show if ROMS passed the test 

8. Begin the system startup 

9. Check the RAM at SCOOOO, and move SYSBASE there 
10. Test all of the chip RAM 

\ 1 . Change the screen color to show if the RAM passed the test 
12.Check to see if software is coming in OK 

13, Change the screen color to show if the software test is passed, 

14, Set up the chip ram to receive data. 

15, Link the libraries. 

1 6, Check for additional memory and link it in if found 

17, Turn the DMA and Interrupts back on, 

18, Start a default task. 

19, Check to see if the computer is using a 68010, 68020, and/or 
68881 . 

20, Check to see if there is an Exception (processor error) 
21- If so» do a system reset. 

AND THE MESSAGES ARE IN TECHNICOLORI 

As this routine is taking place, the Amiga is sending you messages with 
the screen colors. If all is well, we usually see this sequence; 

Dark gray The initial hardware tested OK. The 68000 is running and 

the registers are readable 
Light gray The software is coming in and seems OK 
White The initialization tests were all passed 



But if something is wrong with your Amiga, you might see; 

Red If there is an error in ROM 

Green If there is an error in the Chip RAM 
Blue If an error was found in the custom chips 

Yellow If the 68000 found an error before the error trapping soft- 
ware (the guru) was up and running 

The most likely of these ermrs seems lobe the error in Chip RAM. Only 
this week, I saw an AMIGA 500 flash a brilliant green screen when an 
expansion RAM board was put in hastily, and did not settle in correctly. 
A repositioning of the board corrected the problem in that case. I have 
not yet seen a red, blue, or yellow screen indicator, 

KEYBOARD MESSAGES 

The Amiga keyboard is not as dull an object as I had originally thought, 
either. It contains a processor of its own - a Rockwell /NCR/MOS 
Technology 6500/L It also has 2K of ROM, 64 bytes of RAM, and four 
I/O ports of eight bits each. There is a built-in crystal oscillator running 
at 3Mhz, also. All but the very earliest of keyboards also have a 
"watchdog timer" which will reset the keyboard s processor if it stops 
scanning the keyboard for more than 50 milliseconds. 

II is possible lor the computer to be powered up before the keyboard is 
plugged in, in which case the keyboard will have to go Ihrough its self- 
tesl after it is connected to the computer. Most of us, however, will have 
the keyboard attached, and the self-lesl will take place while we are 
watching the screen, changing disks, etc. 

The keyboard self-test consists of four steps. First it does a checksum on 
all of the ROMs, Then it checks the 64 bytes of RAM, and then the timer 
is tested. Then the keyboard must achieve proper synchronization with 
the computer. It does this by slowly clocking out I bits until il receives a 
handshake pulse from the computer. Once this pulse is received, the 
keyboardmust inform the computer of the results of its self-test. Should 
the self-test fail, the code for failure can be sent to the computer without 
waiting for the handshake pulse. 

IN CASE OF FAILURE 

After informing the computer that the self-test has failed, the keyboard 
will then try lo notify the user that it is in trouble. This is done by 
blinking the CAPS-LOCK Ught. Here is the code: 

One blink The keyboard ROM check failed 
Two blinks The keyboard RAM check failed 
Three blinks The watchdog timer test failed 

Four blinks A short exists between two row lines or one of the seven 
special control keys 

The last check had not been implemented at the time my ROM Kernal 
Manual was printed, but was in the plans. It would be unusual for the 
user lo have typed anything during this self-check hme, but if any keys 
have been depressed, the codes for those keys would then be sent to 
the computer, a "terminate key stream" code would be sent, and then 
the CAPS LOCK LED shut off. indicating the end of the keyboard 
startup sequence. 

Should you be so unfortunate as to have your Amiga get into difficulties, 
perhaps these codes will help you and your repair man to put it in good 
health again. 
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News BRK 



Submitting NEWS BRK Press Releases 

[f you have a press release you would like to submit for the MEWS BRK column, 
make sure thai the computer or device for which the product is intended is 
prominently noted. We receive hundreds of press releases for each issue, and ones 
whose intended readership is nor clear must unfortunately go slraight to the trash 
bin. It should also be menlioned here thai we only print produc! releases which are 
in some way applicable Eo Commodore equipment. News ol events such as 
computer shows should be received at lea.sl 6 months in advance. 

Transactor News 

New Editorial Assislant Mends Our Ways 

There's just been' an important addition lo the staff at The Transactor, and thai 
means good news lor authors and anyone else sending mail to our editorial 
department. Moya Drummond - our new editorial assistant - is on the job now. and 
she's correcting some of our bad habits, mostly in the area ol responding to mail, if 
you sent us an article recently, chances are you've either heard from Moya or will 
be hearing from her soon, just to let you know we received it. You will dlso find out 
the fate of the article once we decide, which nieans you'll know if we plan to use i! 
behreyo\^ see it in print - correcting another nasty habit that we're happy to lose. 
Moya is doing wonders for organization around here, and if you have questions 

about anythingyou've sent to theeditoria! department, chances areshe'll be able to 
help you out. Questions about advertising in the Transactor should also be direaed 

toMoya(likeeveryoneatlheT,Moyawearsmany hats). We thankyou forbearing 
with us in [he past, and if you've tried to communicate with us on something but 
given up, please give us another chance! 

Avoid Duty and Federal Taxes on Quick Brown Boxes 

We've recently made arrangements to supply Quick Brown Box battery backed 
RAM cartridges via Transactor mail order. In Canada the prices are identical to the 
LIS prk:e plus the exchange - no duty or 12% F'STl Ontario residents must still add 
1% provincial sales tax though. 

The Quick Brown Box Is a proven product that we're rather pleased to make 
available. For more details see the Mail Order section of News BRK. For more 
information than that, call Brown Boxes Inc. at (6] 7) 275-0090. 

Combination Magazine Subscriptions 

In case you haven't heard, the premiere issue d Transador for the Amiga will be 
released this January. Subscription prices are identical to the Transactor Classic (as 
its become known around the office). Depending on when this issue hits the 
streets, you may still have Unie to subscribe at HALF the regular price. Offer ends 
January 1st, 1988. (Sorry, but Herman insists). 

Dtsk subscriptions for the Amiga magazine wiil be regular price after January 1st, 
too. We'd like to point out, however, [hat there are still a couple of ways to save! 

With combination subschplions to Transactor Classic and the 5'/^" disks we offer a 
chcHce of free merchandise, but no price break. With combination subscriptions to 
T/A and the T/A Disk, we offer a price reduction on the total, but no merchandise 
selection. You can also get a combination break on a subscription to both 
magazines. We' re not offering "cross-combination" price breaks - that would make 
things too complicated (e.g. T/A with T Classic Disks, or T Classkr with T/A Disks). 
But, if you order subscriptions to both mags AND both disks, you not only get a 
break on the total, but you're also entitled to a FREE T-Shirt or any other item on 
the list at the top. Check out the order card at center 

If you're already subscribing to Transactor Classic, we're allowing the addition of T/ 
A subscription items for the difference in price. So if you'rein the U.S. and you're 
getting T Classic, the combo price would be $27.00, minus S15.00, equals $12.00 
for adding a sub to Transactor for the Amiga. Same applies to all combos for "Both 
T & T/A'' (see card). 

SubscnptioQ Switch 

With the Transador for the Amiga coming this January, many o! our readers will 
want to switch to the new mag for the higher concentration of Amiga material. To 
switch to the new magazine, there's no charge. Simply put your name and 
subscription number on our postage paid card and check off the appropriate box. 
Please don't omit your name as this gives us a cross-reference to ensure we change 
the correct subscriber record. 
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Originally we planned to impose a February deadline for switching subscriptions. 
Then we considered the situation where a reader might not get an Amiga until 
March and disallowing the transfer would be unfair Officially, therefore, the 
subscription switching option will never be discontinued. 

Problems Keep Life fnleresting 

There's a first time for ever>'thing and last issue was our first to be shipped in poly 
bags. One reason for the bags was to protect the magazine against the hazards of 
door-to-door delivery. Another was to keep the mailing label o/Mhe cover The first 
reason panned out rather well, but the second didn't. Ooops. Please accept our 
apolc^jes - the labels wiflhe glued lo the outside of the bag from now on. 

When we looked into the poly bag idea, we just assumed we would be printing the 
labels on paper, as we had always done. Then we made a midstream modification 
and decided to print the labels on sticky-backs to make it easier to complete our 
business reply card for things like orders and renewals. Please don't throw this 
away when you get your copy. Even if you have no intention of sending us the 
order form in this issue, the reply card makes a tidy spot for the label. It means your 
magazine will carry your ID in case you lend it out, and if yoti should move, your 
change of address notice is already half completed - just add your new address and 
pop it in the mail. It's also a good place to keep a record of your suby:ription 
number and expiry date, all of which will be lost if it makes it to the trash bin. 

Early Renewal Notices 

We also had a report that a subscribers' first copy arrived containing a renewal 
notice. So far there's only been one case reported so it could have been a fluke. 
However, if it ever happens again, even though it won't {fingers crossed), always 
check the top right comer of the mailing label for the official expiry issue. The data 
printed there is extracted directly from two fields in our data base. The same two 
fields are used by our ^'expiry algorithm" to determine when a sub.scription gets 
discontinued. Aseparate program determines who should be sent a renewal notkre. 
But in this case, neither was responsible - in fad, our poly baling service has 
asked that we place the blame on him, but we don't like doing that. 

Two Separate Subs - Mag Nol Included W ith Disk* 

Our fast issue detailed two incredible offers regarding the new Transactor for the 
Amiga. Alter the sentence that listed the prices for a disk subscription there was a 
sentence that read, "You'll get a disk with every magazine containing all the 
programs. .". This has been misinterpreted by some as meaning the price of a 
disk subscription includes a magazine subscription. We thought we made it clear 
that magazine and disk subscriptions carried separate prices, but apparently not. 
We've been selling disk and mag subs separately for so long that we didn^l 
anticipate the potential for assuming one would be included with the other. Our 
apolf^ies. Perhaps that sentence should have read, "Magazine subscribers who 
also beconte disk subscribers will receive a disk of the Amiga pr(^rams published 
in the corresponding magazine, and we'll protjabiy add extra programs too.'\ 

Half Price For One Year Only 

Several of the subscription cards we received during our half prte offer on T/A 
arrived with two and three year orders. However, the offer was never meant to 
cover multiple year subscriptions. Some of our colleagues insist we've gone mad 
making the offer for even one year! We will apply all your cash to subscription 
magazines, but those who ordered two years at half price will receive 1 V2. and 
those who ordered three years will get two. And, we also apologize for overlooking 
this possible assumption. 

Office Acx^ess 

&nce the announcement of Transactor for the Amiga, our phones are chiming off 
the pressure sensors! To keep our productton and servk:e operations funclk>nal, 
we've decided to limit calls to Mondays, Wednesdays and Frklays. So if you have an 
order or subscription problem, please try to have it on one of these days. Once we 
have some wrinkles ironed out and things return to a nice, lame chaos around fhe 
office, we hope to lift our office access limitation, 

Tbe 20/20 Deal 

.., is still in effect-order 20 subscriptions to the mag or disk (eitherTCIassic OR T/ 
A.), 20 back issues, 20 disks, etc., and get a 20% discount. (Offer applies to regular 
prices and cannot be combined with other specials) 

No Longer Availabte 

Our 1541 Upgrade Rmi Kit, which eliminates the SAVFj^ bug plus a few others, is 
nowdiscontinued.!fyouwoukistillliketoobtainaset.comiMeinstruaionsareinan 
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article published in Volume 7 [ssue 02 aiid Disk 13 contains the ROM image file you'll 
need to burn your own EPROMS. However, we're reasonably sure that the ROM 
image on disk is compatible with the 1 54 1 only. \S4\C owners will need to create an 
im^ of iheir ROM set, then make the changes described in V7 102, but with minor 
adjustments to accommodate for what are more than likely ^mpiy sli^t address 
changes. Please let us know if you do one so we can print an article update! 

TPUG No Longer Siqiplying Transactor 

As most of you know, lor the past seven issues we've been supplying Transactor 
with TPUG inserts to TPUG who have been sending them to their numbers as their 
regular dub periodk:aL Since starting, TPUC'sorder has fallen substantially and we 
eventually told them we would have to raise our prices. Shortly afterwards, TPUG 
asked that we supply a mixed order o! Transactor and Transactor for the Amiga, 
which would have meant that the order for each pubiication would drop again. 
TPUG wasn't prepared to cover the additional costs this would entail, and instead 
decided to decline further orders altogether. 

As we go to press we do not know what substitute TPUG will offer. However, this 
will in no way affect your TPUG ntembershtp. Members will still have access to 
TPUG'svastsoftwarelibrary and regular members will still have a full schedule of 
meetings to attend. 

New iuid Improved Transactor DUk«l 

Transactor Disks 1 through 19 have been totally re-mastered. Every bloop from 
every issue has been corrected for every disk. The directories have been tidied up a 
little too, with "directory placemarkers'' so you can see where the "BITS" listing 
end and where the prc^rams related to articles begin. Otherwise^ the disks still 
contain the same prt^rams as before. 

The TransBASIC series appeared In 12 issues, starling with Vol. 5 Issue 05 and 
ending with Vol. 7 Issue 04. Each Transactor Disk always carrfed forward the 
TransBASIC modules published in all previous issues, and the new modules were 
added Disks 4 to 15 now contain "TransBASIC Samplers". Each disk in this range 
now carries only the modules published in the corresponding issue pi us everything 
you need to try them out, Originallv you needed an assembler like PALor SYMASS 
to install the commands published in TransBASIC columns, SYMASS 3,13 has 
been included on Disks 4 through 15 and is automatically loaded by the file 
"iransbasic.run", also on ail of these disks. This boot prc^ram displays enough 
instructbns to get you started, and proceeds to set up the sampler system. Give it a 
try! 

Prci)ably the most important reason for re-mastering the disks was to make the 
new custom latiels. All Transactor Disks now have typeset three-colour labels. The 
colours are co-ordinated to the same colours of the corresponding magazine, and 
besides the Disk number, we've included the publicatbn dale, volume and issue 
number, and the issue theme where applicable. Best of all, the entire directory ol 
each disk is listed right on the labelf It sure beats loading and/or listing directories 
trying to Tind that one elusive prt^rani! (Actually, 1 think I'm going to enjoy having 
them more than anybody). 

We regret to say that we have not devised any plan for upgrading Transador disks 
because the lee couldn't be much less than the price of brand new ones. However, 
if there's enough demand we may sell sets of the colour labels. The labels wouldn't 
match the disk directories exactly, but all file names were left unaltered and the 
new labels would be quite useful. Let us know what you think! 

Fish Disks With Custom Labels 

Starting in January, with the premiere issue of Transactor for the Amiga, we'll be 
supplying the complete library ol Fish Disks. Fred Rsh has assembled an 
impressive collectk>n of publk: domain software and shareware for the Amiga and 
they're available from several sources. However, on Ehe Fish disks you'll receive 
from us will be a custom label. Just like Transactor Disks, a condensed version of 
the disk directory will be listed right on the labeH When space permits, we II also 
print short descriptions next to each program name. No nx»re reading endless 
directories off disk when you're searching for that one fiie you need! To make 
cruizing your library even easier, we plan to use a number of different colours 
(i.e. readable colours). An onJer form and prices will appear in every issue of 
TVansactor for [he Amiga- 
Transactor Bi-M(Hithly Special Extended 

Because this magazine is coming out so soon alter our previous one, we've deckled 
to extend our bi-monthly special from last issue. To recap, order any back issue at 
the regular price of S4.50 (US/Q, and get additional back issues for only S2.00 



each! Order 10 total and the effective price per copy is cut by half! (S4,50 + 9 x 
$2.00 = 122.50). We actually had another special all pk;ked out before we chose to 
extend this one. The extension means it will applv only to orders postmarked 
before March 1,1988. 

Transactor MaiJ Order 

The following details are lor pnxiucts listed on Ihe mail order card. If you have a 
particular questk)n about an item that isn't answered here, please write or call. 
We'll get back to you and most likely incorporate the answer into future editk)ns of 
these descriptions so that others might benefit from your enquiry, 

■ Quick Brown Box ■ Battery Backed RAM for C64 or C128 

■ 16KQBB-S 69.00US,$ 89.0OCdn (Heaseadd$3.00 US. 

■ 32K QBB - S 99.00 US, $129.00 Cdn $4.00 Cdn P&H 

■ 64KQBB ' S129.00 US, $169.00 Cdn for these items) 

■ QBB Utilities Disk - $6 US, $8 Cdn (post paid if ordered with cartridge) 
The Quick Brown Box cartridges for the C64 and 128 can be used to store any type 
of programs or data that remains intact even when the cartridge is unplugged. 
Unlike EPROM cartridges, the QBB requires no programmmg or erasing equip- 
ment except your computer. Loader prc^rams are supplied and you can store as 
many programs into the cartridge as its memory will allow. It may even be used as 
a non-volaliie RAM disk. Auto-start programs are supported such as BBS programs 
and software monitoring systems that need to re-boot themselves in the event of a 
power failure. All models come with a RESET push button and use low current 
CMOS RAM powered by a 160 MA-Hr, Lithium cell with an estimated life of 7 to 10 
years. Comes with manual, and software supplied includes loader utilities and 
Supermon+64(by permission of Jim Butterfield). 30 day money back guarantee 
and a 1 year repair/replacement warranty, 

■ Moving Pktures - the C-64 Animation System, S29.95 (US/C) 

This package isa fast, smooth, full-screen animator for the Commodore 64, written 
by AHA! (Acme Heuristic Applications!), With Moving Pictures you use your 
favourite graphics tool Eo draw the frames of your movie, then show it at full 
animation speed with a single command. Movie scripts' written in BASIC can use 
the Moving Piclures command set to provide complete control of animated 
creations, BASIC is still available for editing scripts or executing prc^rams even 
while a movie is being displayed, Animalion sequences can easily be added to 
BASIC prc^rams. Moving Pictures features include: split screen operation - part 
graphk:s, part text - even while a movie is running; repeat, stop at any fran^e, 
change position and colours, var>' display speed, etc; hold several movies in 
memory and switch instantly from one movie to another; instant, on-line help 
available at the touch of a key; no copy protection used on disk. 

■ The Potpourri Disk, SI 7.95 US, $19.95 Cdn. 

This is a C-fi4 product from Ihe software company called AHA!, otherwise known 
as Nk:k Sullivan and Chris Zamara. The Potpourri disk is a wide assortment of 18 
programs ranging from gantes to educational programs to utilities. All programs 
can be accessed from a main menu or loaded separately. No copy protection is 
used on the disk, so you can copy the programs you want to your other disks for 
easy access. Built-in help is available from any program at any lime with the touch 
of a key, so you never need to pick up a manual or exit a program to learn how to 
use it. Many of the programs on the disk are of a high enough quality that they 
could be released on their own, but you get all 18 on the Potpourri disk for just 
$17.95 US/ $19.95 Canadian. See theAd in this issue for nwre information. 

■ TransBASIC II S17.95 US, $19.95 Cdm 

TransBA.SlC 11 contains all TB modules ever printed. The first TransBASIC disk was 
released just as we published TransBASIC Column "d so [he modules froni 
columns 10, 1 1 and 12 dkl not exist. The new manual contains everything in the 
original, plus all the docs for the extras, Thero are over 140 commands at your 
disposal. You pick the ones you want to use, and in any combination! It's so simple 
that a summary of instructions fits right on the disk label. The manual describes 
each of the commands, plus how to write your own commands. 

People who ordered TB 1 can upgrade to TB 11 for the price of a regular TVansactor 
Disk (8.95/9.95). Ifyou are upgrading, you don't necessarily need to send us your 
old TB disk; ifyou ordered it from us, we will have your name on file and will send 
you TB 11 for the upgrade price. Please indicate on the order form thai you have the 
original TB and want it upgraded. 

Some TBs were sold at shows, etc, and they won't be recorded in our database. If 
that's the case, just send us anythmg you feel is proof enough {e.g. photocopy your 
receipt, your manual cover, or even the diskette), and TB 11 is yours for Ihe upgrade 
prkE. 
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■ The Amiga Disk. $12.95 US, $14,95 Cdn. 

Finally, the first Transactor Amiga disk is available. It contains all of the Amiga 
prt^rams presented in the magazine, of course, including source code and 
documentation. You will find the popular "PopColours" prM[ram, the prc^ram- 
mer's companion "Structure Browser^ the Guru-killing "TrapSnapper", user- 
friendly "PopToFronI". and others. In addition, we have included public domain 
programs - again, with documentation - that we think Transactor readers will find 
useful Among these are the indispensable ARC; Csh, a powerful CLI-replacement 
DOS shell; BLink, a linker that is much faster and has more (ealutes than the 
standard ALink; R)xy and Lynx, a 6502 cross assembler and linker that makes its 
debut on the Amiga Disk; and an excellent shareware text editor called UEdit. In 
additbn, we have included our own expression -e valuator calculator that uses 
variables and works in any number base. All prc^rams contain source code and 
documentatbn; a|] can be run from the CLI, and some from Workbench. There's 
something for everyone on the Transactor Amiga disk. 

■ Transactor T-Shirts, $13.95 US, $15,95 Cdn. 

■ Jumbo T-Shirl, $17.95 US, S19.95 Cdn. 

As nentjoned earlier, they come in Smalt, Medium, Ur^e, Extra Ut^, and 
Jumbo. The Jumbo makes a good night-shirt /beach-top - it's BIG. Tm 6 foot tall, 
and weigh in at a slim 150 pounds - the Small fits me tiglil, but that's how I like 
them. Ifyou don't, we surest you order them 1 size over what you usually buy. 

One of the free gift chok:es we offer when you order a combination magazine AMD 

disk subscription is aTransactorT-Shin in Ihe size and colour of your choice{sorry, 
Jumbo excluded). The shirts come in red or light blue with a 3-colour screen on the 
front featuring our mascot, Duke, in a snappy white tux and top hat, standing 
behind our iogp in 3D letters. 

■ Inner ^ace Anthology $14.95 US, S17.95 Cdn. 

This is our ever popular Complete Commodore Inner Space Antholog>'. Even after 
two years, we still get inquiries about its contents. Briefly The Anthology is a 
reference book - it has no "reading" material (ie. "paragraphs"). In 122 compact 
pages, there are memory maps for 5 CBM computers, 3 Disk Drives, and maps of 
COMAL; summaries of BASIC commands, Assembler and MLM commands, and 
Wordprocessor and Spreadsheet commands. Machine Langu^ codes and modes 
are summarized, as well as entr>' points to ROM routines. There are sectbns on 
Music, Graphics, Network and BBS phone numbers, Computer Clubs, Hardware, 
unit-to-unit conversions, plus much more, , . about 2.5 million characters total! 

■ The Transactor Book of Bits and Pieces '1, Sl^.95 US, S17.95 Cdn. 

Not counting the TaUe (i Contents, the Index, and title pages, it's 246 pages of Bits 
and Pieces from issues of Transactor, Volumes A through 6. Even if you have all 
those issues, it makes a handy reference - no more flipping through magazines for 
Ihatonebilthatyoujust know is somewhere. . Also, each item is forward/reverse 
referenced Occasionally the items in the Bits column appeared as updates to 
previous bits. Bits that were similar in nature are also cross-referenced. And the 
index makes it even easier to find those quk:k facts that eliminate a lot of wheel re- 
inventing. 

■ The Bits and Pieces Disk. $8,95 US, 9.95 Cdn. 

■ Bits Book AND Disk, $19.95 US, 24,95 Cdn. 

This disk contains all of the programs from the Transactor book of Bits and Pieces 
(the "bits book"), which in turn come from the "Bits and Pieces'^ section of past 
issues of the magazine. The "bits disk'' can save you a bl of typing, and in 
conjunction with the bits book and its comprehensive index can yield a quick 
solution to many a programming problem. 

■ The G-LINK Interface, $59.95 US, 69.95 Cdn. 

The Clink is a Commodore 64 to lEEf: interface. It allows the 64 to use IEEE 
peripherals such as the 4040, 8050, 9090, 9060, 2031, and SFD-IOOl disk drives, 
or any IEEE printer, modem, or even some Hewlett-Packard and Tektronics 

equipment like oscilloscopes and spectrum analyzers. The beauty of the Clink is its 
"transparency" to the C64 operating system. Some IEEE interfaces for the 64 add 
BAaC 4.0 commands and other things to the system that sometimes interfere with 
utilities you might like to install. The Glink adds nothing! In fact it's so transparent 
that a switch is used to to^le between serial and IEEE modes, not a linked-in 
command like some of the others. Switching from one bus to the other is also 
possible with a small software routine as described in the documentation. 

As of Transactor Disk '1 9, a modified version of Jim Butterfield's "COPY-ALL" will 
be on every disk, [t allows file cc^ying from serial to IEEE drives, or vice versa. 



■ The Micro Sleuth: C64/1541 Test Cartrklge, $99.95 US, $129.95 Cdn. 
We never expected this cartridge, designed by ^ian Steele (a service tech nician for 
several schools in southern Ontario), would turn out to be so pq)ular. The Micro 
Sleuth will test the RAM of a C64 even if the machine is too sk:k to run a program! 
The cartridge takes complete control of the machine. It tests all RAM in one mode. 
all ROM in another mode, and puts up a menu with the following choices; 



1) Check drive speed 

2) Check drive alignment 

3) 1 54 1 Serial lest 

4) C64 serial test 



5) Joystick port 1 test 

6) Joystick port 2 test 
7| Cassette port test 
8) User port test 



A second board {Included) plugs onto the User Port; it contains 8 LEDs that let you 
zero in on the faulty chip. Complete with manual. 

Transaclor Disks^ Transactor Back Issues, and Mkronche 

All Transactors since Volume 4 Issue 01 are now available on microfiche. 
According to Computrex, our fiche manufacturer, the strips are the "popular 98 
page size", so they should be compatible with every fiche reader Some issues are 
ONLY available on microfiche - these are marked "MF only". The other issues are 
available in both p^r and Tiche. Don't check both boxes for these unless you 
want both (he paper version AND the microfiche slice for the same issue. 

To keep things simple, the price of Transactor Microfiche is the same as ma^nes, 
both for single copies and subscriptions, with one exception: a complete set of 24 
(Volumes 4, 5, 6, and 7) will cost just %i^.% US, S59.95 Cdn. 

This list also shows the 'themes" of each issue. Theme issues didn't start until 
Volumes, Issue 01. Transactor Disk '^I contains all prc^rams from Volume 4, and 
Disk *2 contains all programs from Volume 5. Issues 1-3. Afterwards there is a 
separate disk for each issue. Disk 8 from The Languages Issue contains COMAL 
0J4, a soft-loaded, slightly scaled-down version of the COMAL 2 cartridge. And 
Volume 6, Issue 05 lists the directories for Transactor Disks 1 lo 9. 



Vol 4, 
Vol.4, 
Vol.4, 
Vol 5, 
VoL 5, 
Vol. 5, 
Vol. 5, 
Vol. 5, 
Vol. 5, 
Vol. 6, 
Vol. 6, 
Vol. fi, 
Vol. 6, 
VoL 6, 
VoL 6, 
Vol. 7, 
Vol. 7. 
Vol 7, 
Vol.7, 
VoL 7, 
VoL 7, 
VoL 8, 
VoL 8, 
Vol. 8, 
VoL 8, 
Vol, 8, 



Issue 01 
Issue 02 
issue 03 
Issue 01 
Issue 02 
Issue 03 
Issue 04 
Issue 05 
Issue 06 
Issue 01 
Issue 02 
Issue 03 
Issue 04 
Issue 05 
Issue 06 
Issue 01 
Issue 02 
Issue 03 
Issue 04 
Issue 05 
Issue 06 
Issue 01 
Issue 02 
Issue 03 
Issue 04 
Issue 05 



VoL4Jssue04-MF 
VoL 4, Issue 05 -MF 
VoL 4, Issue 06- MF 



I Disk 1) 
I Disk 1) 
I Disk I) 
-Sound and Graphics 

- Transition lo Machine Language - MF only 
-Piracy and Protection -MF only 

- Business & Education - MF only 

- Hardware & Peripherals 

- Aids & Utilities 
-More Aids & Utilities 

- Networking & Communications 
-The Languages 

- Implementing The Sciences 

- Hardware & Software Interfacing 
-Real Life Applications 
-ROM /Kernel Routines 

- Games From The Inside Out 

- Programming The Chips 

- Gizmos and Gadgets 

- Languages II 

- Simulatbns and Modelling 

- Mathematk:s 
-Operating Systems 

- Feature: Surge Protector 

- Feature: Transactor For The Amig^ 

- Feature: Binary Trees 

Industry News 



only 
only 
only 



I Disk 1) 

I Disk 1) 

I Disk 1] 

I Disk 2) 

I Disk 2) 

I Disk 2) 

I Di^k 3) 

I Disk 4) 

I Disk 5) 

I Disk 6) 

I Disk 7) 

I Disk 8) 

I Disk 9) 

Disk 10) 

Disk 11) 

Disk 12) 

Disk 13) 

Disk 14) 

Disk 15) 

Disk 16) 

Disk 1 7) 

Disk 18) 

Disk 19) 

Disk 20) 

Disk 21) 

Disk 22) 



PareDts Legally Responsible for Teenage Pirates? 

New York - Can parents be held legally responsible for acts ol software piracy by 
their teenage children? Jonathan D. Wallace, a computer lawyer representing the 
plaintiff in Weaver v. Doe, a case pending in federal court in New York, believes 
they can. 

Weaver, the plaintiEl, owns the copyright of "Cards", a commercially distributed 
card-playing emulation for the Atari ST The teenage defendant allegedly operated 
a pirate bulletin board system from whfch users could download "Cards" arid other 
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copyrighted pr(^rams. AHhoiigh software companies have sued software pirales 
before, this is Ihe first case of which Wallace is aware in which the pirate's parents 
have also been sued. Wallace believes the case raises a question of first impressbn 
underlhe copyright law, "Our a^ument is that a parent who supplies the computer 
equipment and telephone line which is used To operate a pirate bulletin board, and 
who then tolerates the trading of piraied software, contributes to the copyn^hl 
infringement", Wallace said, "Since teenagers usually have no assets with which to 
pay a judgment, holding the parents responsible will give a strong incentive to 
families not to condone this type of behaviour." 

For further information contact: Jonathan D. Wallace, Meatto, Russo, Burke & 
Wallace, 747 3rd Avenue, New York, NY. 10017, telephone {212) 759-0523 

Hie 64 Emulator for Amiga 

Last issue the phone number for ReadySoit was incorrect as published. For more 
information abod the 64 Emulator contact: f^adySoft Inc., P.O. Box 1222, 
Lewiston, NY, 14092, (416| 731-4175, Please note, the phone number is for 
ReadySoft's headquarters in Richmond Hill, Ontario. Our apologies for any 
inco^ven^ence, 

TOE ACCOU^^^ANT v2.0 for C128 

THE ACCOUNTANT is a 4-parf, menu-driven accounting prc^ram. Accounts 
Payable and Receivable, Payroll and General Ledger are on a single disk. Although 
no longer able to run on the 1541 disk drive, it has versions ready to run on the 
1571 and the new 1581 disk drives. 

New features includea Disk File that will "rebuild" most corrupted files; a rewritten 
Payroll section for lOOemployees;individualizedStateWithholdingTax Rates; and 
athird percentage reductbn. Complete details of all deductions are maintained on a 
monthly, quarterly and annual basis. The prt^ram produces over 20 CPA style 
reports on every aspect of a business. 

THE ACCOUNTANT will be the forerunner of a new accounting system from KFS 
fortheAmiga500and2000, scheduled for release January 1st. 

KFS Software Inc., P.O. BOX 107, 1301 Seminole Blvd, Suite 117, La^.FL 34649- 
0107, USA. 

New Utmty Program For the 1581 DUk Drive 

Free Spirit Software Inc. has released Super 81 Utilities - a full-featured utilities 
system forthe Commodore 1581 Disk Drive and Commodore 128 computer. An 80 
column monitor is required. 

Features include: 

•Copy whole disks from 1541 or 1571 format to 1581 partilons 

• Copy 1541 or 1571 files to 1581 disks 

• Copy 1581 filesto 1571 disks 

•Backup 1581 disksor Tiles with oneor two 1581s 

• 1581 disk editor with simultaneous display in hex or ASGI 

• 1581 drive memory monitor and RAM writer 

• Perform many CP/M utility functions 

• Perform numerous DOS functions: rename a disk, rename a file, scratch or 
unscratch files, lock or unlock files, create auto-boot eta 

The program is supplied on tioth 5Vi* and SVa" diskettes for either 1571 or 1581 
drives, whkh can be utilized as device numbers 8 or 9. 

Super 81 Utilities is available from Free Spirit for S39.95. Shipping & Handling are 
free. The program disk-s are not copy-protected. More information from Joe 
Hubbard, Free Spirit Software Inc., 538 S. Edgewood, La Grange, fL 60525, USA, 
telephone (312) 352-7323. 

Survey-Master for C64 & C128 

A market survey facility for the C-64/C-128 user. This prc^ram establishes survey 
parameters and analyses Ihe results. It allows for different sample sizes and 
determines what effect they will have on Ihe confidence one may place in the final 
data (the confidence interval), 

SURVEY-MASTER uses the sample size and survey data to generate screen and 
printed reports. If the data consists of numbers, Ihe report includes the average, 
standard deviation and standard error of the mean and confidence interval. If the 
data consists of yes/ no or option/brand preferences, the reports include standard 
error of Ihe percent and confidence interval. 



The prc^ram automatically corrects for large and small samples; its reports recap 
all the analysis criteria (confidence level, sample size, population size); built-in T- 
Tables are featured allowing correction to results obtained from relatively small 
samples at confidence levels of 70, 80, 90, 95, or 98 percent. It is compatible with 
IheC-64/C-128 single or dual 1541 disk drives and 1525-emulaling printer. 

Available at $29.95 from Strategic Marketing Ifesources Inc., P.O. BOX 2183, 
Ellisville.MO 63011, telephone (314) 256-7814. 

Satcomm 64 

A new satellite Tracking program for the many licensed amateur radio operators 
who use the C'64 or C-128 for communicating in Km, ASCII and CW modes, 
features: a master menu allows quick activity selection (12 options); information on 
up to 15 different satellites can be stored; quickly confirms WlAW Reference 
Orbits; a single entry of the time bracket during which the user is available will 
allow a printed report of up to 31 days of access times (during the specified time 
bracket) for any satellite; the same one-timeentry can also produce a report for any 
given day of the access times lor up to three different satellites of interest. 

Added features include an easily changed satellite menu (leather with associated 
frequency and Keplerian element data); choice of screen plus printed report, or 
screen alone; easily altered user defaults (start time, time incren^nt, etc); and 
ability to override defaults by simply making an entry. 

While the Commodore is performing real-time tasks SATC0MM-B4's pre-printed 
reports include satellite azimuth and elevation, altitude, longitude and latitude, local 
time, UTC day, geographic areas that are within the satellite's communkaiion 
range, Doppler shift, minimum and maximum communication distance, operating 

frequencies, orbit number and phase. 

For C-64/C-128 users who are not amateur radio operators, the pn^ram may be 
used to track the current group of easily vi?>ib]e satellites including Salyut-?, MIR 
aiKl Cosmos 1870, NOAA and Meteor. The program is compatible with the 1541 
disk drive and any 1525 emulating printer. 

Available from Strategic Marketing Resources Inc, PC. BOX 2183, Ellisville, f^O 
63011, telephone (314] 256-7814, 

ftvc/sejy aiH/ Quartertmck for Che Ami^ 

From Central Coast Software a new wordprocessor called PRECISELY and a fast 
hard disk to floppy back-up utility called QUARTERBACK for Commodore Amiga 
users, 

PRECISELY delivers fast printer speed and screen updates and features a non- 
technical user interface, ease of use and inexpensive price. It accepts documents in 
the formats of PaperClip, SpeedScript and Pocket Writer, ll will conveniently print 
selected screen areas such as an address for use with an envelope; supports 
multitasking, multiple windows, keyboard macros, online help, oops key lo undo 
mistakes, column cut and paste, and many other features, 

ft sells for S79.95 plus t3.00 shipping charge. 

QUARTERBACK transfers 20MB lo fbppy in forty-five minutes; supports full/ 
subdirectory/ incremental backup and restore, with automatic formatting of disk- 
ettes, automatic catalog of files, and automatic diskette sequence numbering and 
checking. It provides graceful error recovery, runs with Workbench or CLL is 
multitasking, works with all AmigaDOS compatible hard disk drives, and isn't copy 
protected. 

Available for $69.95 plus S3.00 for shipping. 

For more information on PRECISELY or QUARTERBACK contact Central Coast 
Software, 2&8 Bowie Drive, Los Osos, CA 93402, telephone (805) 528-4906. 

Legal Care For Your Software 

Nolo Press has brought out a completely revised and updated 3rd edition of l-egal 
Care for Your Software. In the last five years a number of important legal 
developments has occurred including: 

• the "look and feel" of the screen format of asoftware program is now protected by 
the copyright law 

• the overall structure and logic of program code is now conskiered protected by 
copyright 

• freelance prc^rammers may now be considered employees for purposes of the 
"work for hire ruie'^ 
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• microcode (the instruction sets on microprocessor chips) lias been held to be 
protected under The copyright law 

Autliors Daniel Remer and Stephen Elias incorporate these and hundreds of olher 
smaller but significant changes; address the le^al concerns d both software 
developers and publishers; explain copyright, patent and trade secret laws and 
what to do if an infringement occurs. 

Available from Nolo Press, 950 Parker Street, Berkele>', CA 94710, telephone (415) 
549-1976. 

MIDJ Interface for C64 & C128 

MIDI 64 is an all-Canadian intelligent MIDI interface with innovations such as a 
16K autchboot bank-switched EPROM containing: 

• an extensive supplement to BASIC for easy, custom MIDI programming 

• a reai-time 4-lr^ck sequencer 

• a MIM-dala monitor for hex/binary /decimal real-time data display 

• an interface/cable aulo-lest program 

Ail pr(^rams are automatically available on power-up and can be switched out to 
run other manufacturers' software. The package includes; MIDI interface with 
EPROM iastalied; two MIDI cables; full documentation on disk; and MIDI BASIC 
prc^ram examples. This product is aimed at musicians, home hobbyists, students, 
repair technicians, and small recording studios, and for teaching and first-time 
users. 

Available for $199.95 from ADPS. c/o Phil Honsinger, 86 Foxhunt Road, Waterloo, 
Ontario,Canada,N2K2Z6, telephone (519) 886-6361. 

New CoQiiDodore 128 Software from Abacus 

Abacus, one of the largest publishers of books and software for Commodore home 

computers, announces three productivity software packages for the Commodore 
128. 

^>eedtenn 128 is a flexible, command driven terminal software package. It 
supports most modems for (he C-128. In addition to the standard options found in 
most terminal prt^rams, SpeedTerm supports Xmodem and Punter file transfer 
protocols. VT52 and VTIOO terminal emulation with cursor keys, large 45K 
capture buffer and user-definable function keys. Suggested retail prk:e is S59 95 

m- 

TAS-128 is an enhanced version of Abacus' technical analysis system for slock 
market charting. Using TAS-128, the investor can automatically do\^nload indica- 
tors from DJN/f^ or Warner and then build a variety of charts on the split screen: 7 
moving averages, 3 oscillators, 5 volume indicators, comparison charts, trading 
bands, least squares and others. It incorporates many new powerful features, such 
as macro capabilities, automatic and unattended logon and fast draw charts using 
up to 4 windows. Su^ested retail price is $59.95 (US). 

PPM-128 is the uf^radedC-128 version of Personal Portfolk) Manager for tracking 
the performance of stocks, bonds or options. PPM-128 is a very easy to use 
package and has complete reporting capabilities. It also tracks profits and losses for 
tax purposes. The earlier C-64 version has been very favourably reviewed in the 
major magazines. Suggested retail price is $59,95 (US). 

For more information, contact: Scoff Slonghter or Jon Uoyd. Abacus Software, 
2201 Kalamazoo S.E. PO Box 7211, Grand Rapids. M! 495W(6l6j 241-5510, 
Telex 709101. 

New Amiga Software and Books frcm Abacus 

Abacus announces four productivity software packages for the Amiga; 

TexlPro is an intermediate level, high quality word processor, TextPro features fast 
on-screen formatting, automatic hyphenation, capability to include graphics with 
text, 30 user-definable function keys and flexible printer driver installation. It is 
designed with fast entry of text in mind, Su^ested retail price is $79.95. 
BeckerText is a professional quality word processor In addition to the standard 
options found in other wonj processors, BeckerText features fast WYSIWYG 
formatting, up to 999 characters per line, multiple<:olumn printing, real time online 
dictionary for type-along spell checking, automatic hyphenation, decimal tab 
settings, numeric calculations within text, automatic index generation and more. 
Suggested retail price is $150 (US). 



DataRetrieve is Abacus' data management package that has been fully rewritten 
for the Amiga. Some of its features: store and display data fields in different type 
styles and sizes; create and work with subsets of a file; easily change file definition 
and format; supports RAM disk for high speed operation, DataRetrieve also has fast 
search and sorting capabilities, can handle records up to 64,000 characters, allows 
numeric values with up to 15 significajit digits, accesses up to 8 files simultaneously, 
indexes up to 80 different fields and has complete, built-in reporting capabilities. 
Suggested retail price is $79.95 (US). 

AssemPro is a machine lani^uage development package, and includes an inte- 
grated editor, a high speed macro assembler with 32-bil arithmetic, [ar^e operating 
system library, unique debugger with 68020 single-step emulation, disassembler 
and reassembler Runs from the Workbench or the CLI. Su^sted retail prk:e is 
$99.95 (US), 

Abacus also anirounces four new Books for the Amiga line: 

AmigaBASIC - Inside & Out is a step-by-step guide to programming in 
AmigaBASIC. All commands with syntax and parameters are fully described. 
Topk:s include graphics, sound, file management, more. Working programs are also 
included; video titling for OBJECT animation, bar and pie charts, windows and 
pull-down menus, using the mouse commands, sequential and random file 
handling, speech prc^ramming and sound synthesis. 550 pages. Suggested retail 
price is $24.95 (US). 

Amiga TVkks and Tips is a collection of short prc^rams for all Amiga users. 
Techniques include using AmigaBASIC, accessing Intuition, making the most of the 
CLI, DOS and the disk drive, advanced graphics prc^ramming using windows and 
menus, more. 275 pages. Price: $19.95 (US), 

Amiga for Beginners introduces the new Amiga owner to Intuition, the mouse, 
CLI and AmigafJASIC. The user will learn how to use the CLI for performing many 
housekeeping chores and will take the first steps in BASIC programniing. Price; 
$16.95 (US), 

Ami^ Machine Language describes the 68000 processor, address modes and 
instruction set. It details the powerful Amiga libraries for u^ng AmigaDOS, 
Intuition, and speech and sound capabilities from machine language. 225 pages. 
Price: $19.95 



Contact Julie Carle or Rob Lun at Abacus (address in above ttemj. 

Power Windows: Release 2.0 

Inovatronics Inc. of Dallas presents release 2.0 of PowerWindows, an improved 
version of the established Commodore Amiga programmers' tool. It allows the 
interactive design of functbnal windows, gadgets, menus and entire custom 
screens including palette control, using the mouse and a few simple keystrokes. 
PowerWindows automatically generates the source code needed to integrate these 
constructs into original prt^rams. This package now generates TDI Modula-2 
source code as well as Manx and Lattice C and 68000 assembly language. 

Available for S89.55 from: Inovatronics Inc, 11311 Stemmons Frwy,, Suite 8. 
Dallas, Texas, 75229, telephone (214)241-9515. 

Ketek announces new Command Centre 

KETEK announces a Command Centre for the Commodore 64 and 64C, As with 
the 128 Command Centre, this cabinet consolidates ail peripherals into a compact 
enclosure. 11 keeps all cables hidden, out of sight and reach. Valuable desk space is 
saved enabling you to operate more efficiently, turning the onJinary desk into the 
kieal computer workstation. The new Command Centre is a sturdy, colour- 
coordinated cabinet designed to give your system a more professional appearance. 
The cabinet includes a main power control switch that controls the computer and 
all peripherals, a cooling fan to prevent overheating, and a built-in AC power strip 
with surge protection and line noise filtering. Other options available include a 
cartridge port extension and a modular telephone plug with its own on-line/off-line 
switch. Contact: Ketek, P.O. Box 203, Oakdale, lA, 52319 (319) 338-7123. 

^>eedScripl Upgrade for the C-128 

SpeedPlus-12S converts your C-64 copy of SpeedScrip! 3.X into a full-featured 8U- 
column C-128 version with 64K text memory and 20K erase buffer, all for use in 
128 operating mode. Other enhancements include justification, labs, two column/ 
two skie printing, word wrap tc^le, selectable print-out, preview of documents, 
insertion of text files within a document, display of up to 26 help files, adjustable 
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screen display o( text for increased typing speed, and more. Speed Plus- 1 28 is 
available by mail order for $29.95, including shipping and hantliingf from; UDON 
Enterprises. P.O. Box 773, Elm Grove. Wl 53122. 

MPS-801 Descender ROM 

From Public Domain Solutions comes an EPROM for the MPS-SOl printer that 
replaces the original ROM, adding true descenders and enhancing Ihe entire 
characters set to make documents look better The EPROM comes with complete, 
easy to follow instructions. Price is $29.95 (US) plus SI shipping/handling. 
Contact: Public Domain Solutions, P.O. Box 832, Tailevast, Rorida, 34270. Orders: 
l-80(>634'5546; inquiries (813)378-2394. 

Synthesizer Software 

Sound Quest Inc. has introduced two new Editor/ Librarians for the Yamaha DX7I I 
and the RolancJ D50. Both products, utilizing the Commodore Amiga, have been 
designed exclusively for the professional, semi-professional and serious amateur 
musician. 

The DXl 1 Master Editor/Librarian provides "Musician Friendly" Help Screens for 
each Editor Window. It loads data liles from disk into the Amiga or directly to the 
synthesizer either singly or in batches. As well, the Master loads stored System 
Exclusive data to any appropriate MIDI instrument, not just DX data files. 

Muhi-tasking is utilized, which permits the editing of as many data banks as desired 
(limited only by the computer's memory). Eight Bank Editing functions may be 
performed on any sized i^roup of patches at one time. As well, the DXl I Master 
Editor/Librarian stores and edils all 13 types of 0X711 Sys Ex data, and adds the 
folkMing screens: Fractional Scaling (featuring Amiga mouse control and superior 
graphics), Micro-Tuning (in cents or notes), Performance, Set-Up, and Additional 
Parameters. In addition, the Master also provides Random Voice Generation that is 
personally controlled. 

The D50 Master Editor/Librarian provkies an identkal helpful environment (data 
loading, bank editing, and data sending feature.s) as the DXl i. Editing, however, is 
performed on partials, tones, or patches from a main window and features Pop-Up 
windows lor graphic envelope editing. The D50 Master Editor/ librarian has been 

designed with the capability to "Lock" any combination ol partiaisor tones together 
for ^multaneous editing, 

for more information, coniact: Gfenn Hayworth. Sound Quesl Inc., 5 Glenaden 
AoenueEast. Toronto. Ontario. MSY 2L2 

Muskal Catechism Lessons on the 64 

^'We Sing Our Faith" is a musical presentation of Basic Christian Doctrine for the C- 
64, based on the traditional Little Catechism of the Province of Quebec. Pro- 
grammed by Religious of The Order of the Mother of God [Ordo Dei Matris), it is 
suitable for ages eight to sixteen, and has been tested on youngsters from the ages 
of ei^t to seventeen in their classrooms. Because music is a great memory aid, 
they easily retain the material; they are able to ang Ihe verses years after leaving 
the class. Adults also have shown enthusiasm for this enjoyable religious instruc- 
tion. It is simple to sing along, because syllables are highlighted or underlined as 
the music plays. 

Disk 1, The Attributes of God, the creation", contains: The Unity and Trinity of 
God; God and His Perfections; The Final Destiny of Man; The Creation; Our Rrst 
Parents and their Fall; The Sources of Sin. Disk 2, "The Incarnation and Redemp- 
tbn", contains: The Promised Redeemer; The Incarnation; The Passion and Death 
of Our Lord; The Resurrection and Ascension; The Descent of the Holy Spirit; The 
Effects of the Redemption. 

Each ch£^>ter contains: QueslionsA'erses; Lexicon after each verse, explaining 
words and terminolt^; A multiple-choice questionnaire, a beautiful on-screen 
religious picture loaward a high score. Options. Listen to each verse any number of 
limes; Return to start of music or to questions missed seclbn for a second try; Study 
text without playing music. Price is S25 postpaid. 

Also available: "Sunday Evening At Home - With The Lord" - music for singing; 
scripture tester/ teacher; six high- resolution religious pictures. Offering requested: 
110, 

Order from Monastery of The Apostles, in Canada: P.O. Box 308, Sl.-Jovite, PQ JOT 
2H0. In the U.S.; Frontier Road, Churubusco, NY 12912 



Bits & Pieces I: 



Th 






From the famous book of the same name. Transactor 
Productions now brings you Bits & Pieces I: The D/skI 
Vou'lf thrill to the special effects of the screen 
cJazzlersf You'll laugh at the hours of typing time 
you'd savel You'll be Inspired as you boldly go 
where no bits have gone before! 



"Extraordinariiy faitfifut to the plot 
of the bootc. . . The BAM alone is 
worth thepnce of admissioni" 

Vincent Can byte 



'Absolutely 
magnetlcir 

Gene Syscall 



"If you mount only one bits disk in 1987. make it this 
onel The fully cross-referenced index is unforgettablet 

Recs Read. New York TIS 



U/ARMfMG Some sectors conrjtin null bytes Rated GCR 



HJrs & PIECES I: THE DISK, A Mylar FiJniH in assotiatfon with TransacEor Pfoduciion^. 

Playing ai a dnve near you! 

Disk S8,95 US, 59.95 Cdn. Book S f 4.95 US, S ? 7.95 Cdn. 
Book & Disk Combo Just S 1 9.95 US, S24.95 Cdnl 
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Transactor Bimonthly Special Offer 

Poor Herman. Just as he thinks he's about to get a break, whammo! It wasn't until he read the magazine that he 
heard about the insane offer we made last issue. He didn't go completely grey like we predicted, but lately we've 
noticed that he comes in and just stares at the books with his head in his hands. We keep telling him, "relax", but 
he's not listening. His forehead has a lot more wrinkles than before and the elbows in all his jackets and shirts are 
getting all worn out. We're extending the special offer from last issue, but we can't let Herman find out - he just 
can't take much more of this! In case you missed it. . . check off any number of back issues on the order card at 
right, and when you're figuring out the price, count $4.50 for the first one as usual (that's to cover the handling) 
but only $2,00 each for all the rest. If you're from Canada, that price is in Canadian dollars (and PST applies in 
Ont.); anywhere else in the world it's US dollars. You buy the magazines, we'll pay the freight - but 
please remember that this offer is only valid for orders postmarked on or before February 1, 1988. 
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1 - n Please send me 6 consecutive Transactors starting with the next issue! 

TtOI^SCldOl' ^ ^'^ subscribing to the magazine AND the disk, so please send me my (check one): 
■w^^w^p'BWi p FREET-Shirt Size: C\S QM DL QXL Color: QRed DBlue 

D FREE Potpourri Disk D FREE TransBASlC 2 Dislt and Manual 



The MoffDjibitloi Commodor* Pn>{|ramrrtBti 




Tb* MagoilrH tof Amiga Progromnwra 



D Please send me 6 consecutive Transactor tor the Amiga starting with the next issue! 

D i'm subscribing to llie magazine AND the disk, so please send me my FREE Fish Disk Catalog Disk. 

n I am already subscribing to Transactor - my subscripiion * is : 

D Hease switch my Transactor subscription to Transactor for the Amiga [no charge - see News BRK), 



Transactor 
T/Amiga 
Both T and T/A 

Transactor 
T/Amiga 
Both T and T/A 

g Trajisaclor' 
y T/Amiga 
^^^^ Both land T/A 



1 
Year 

2 
Years 



Subscriptions (D Ptease send microfiche instead of magazines) 



Canada ($Cdn.) 



Mag Disk' Botfi 



D19.00 055.00 074.00 
O19.00 0^7,00 O8G.00 
O34.0() DlOS.OO ni39.00 



035.00 0101,00 O136.00 
035.(K) D123.O0 0158.00 
062,00 ni92.50 02f^4 5() 



047.50 0137.5(3 OlSS.OO 
047,50 D167.50 O2I5.00 
085,00 0262.50 0347,50 



U,S.A. (SlIS) 



[Mag Disk Both 



ni5.(X) D45.00 060.00 
DlS.OO 055.00 070.00 
D27.00 089.00 0116.00 



D27,50 DS2,50 DUO.OO 
D27,50 DlOl.OO O128.50 
D49,50 niG3.00 0212.50 



D37.50 0)12.50 OI50.00 
D37.,50 OI37.50 D175.00 
067.50 0222.50 0290.00 



foreign (SUS) 



Mag Disk Both 



021.00 D55.00 076,00 
021.00 D65.00 086.00 
039.00 OI09.00 0148.00 



038.50 Dl01,00 OI39.50 
038.50 OU9.00 0157.50 
071.50 0200.00 0271.50 



052.50 0137.50 O190.00 
052.50 O162.50 0215,00 
097.50 0272.50 0370.00 



Air Mail ($U$) (Overseas only) 



Mag Disk 



Both 



040.00 DG9.00 109.00 
040.00 D79.00 0119.00 
077.00 D137.00 0214,00 



073.00 D126,50 OI99.50 
D73.O0 D145O0 0218,00 
0141,00 D25I.00 0392,00 



0100,00 O172.50 D272.50 
DlOO.OO P197.50 0297.50 
0192.50 D342.50 0535,00 



* OnTario Residents please add 7% of disk subcription price for provincial sales lax. No PST on ma^asine subscriptions. 



D New Subscription D Renewal (please include your Subscription Number from mailing label) 

Name & Address New address? n „^______^^^ 

{please jndude your postal/zip code): 



-w 



SAVE 

28% OFF 

Cover Price 



Phone tf: ( 



CompuServe 1D#: 



' Ontario residents please add 7% PST ^ Prices are in U,S. Dollars 



*Cdn. 
□ 15.95' 
D 19.95* 
O 17.95 
O 9,95* 
O 24.95 
O 19,95* 
O 9,95* 



' Add flat $2,00 shipping & handling for any number of items within this l>ox ^ 

$Cdn. $U.,S. 



O 59,95' 
□ 17.95 



tU.S. 

13.95' TYansadorTsOS, OM, DLOXL ORed QBlue 
17.95' Jumbo T-Shir[ ORed DBlue 
14.95' TVansaclor Book of Bits and Pieces *1 

8.95' Bits and Pieces Book Disk 
19.95' Bits and Pieces Book AND Di^ Comljo 
17.95' The TransBASlC 2 Disk 

8.95' TVansBASlC 1 to TransBASlC 2 Upgrade 

(proof of pun:hiise required - see New,s BRK] 

49.95' Transactor Microfiche Sel(VoH+Vol5+Vol6+V(^7) 
14.95' The Complete Commodore inner Space Anltiolt^ 



14.95* 
O 69,95* 
O 19 95* 
O 129,95* 
D 29.95' 
□ 89.00* 
129.00* 
O 169.00* 
D 8.00- 



12.95' TYarisactor Amiga Disk ''1 
59.95" aUNKC64 to IeEE Interface 
17.95^ Potpourri Disk 
99.95' The Micro Sleuth 
29.95' Moving Pictures 
69.00' 16KQBB-(neaseaddS3US, 
99 00' 32KQBB-$4CdnP&H 
129.00' 64K QBB - for any QBB) 
6,00- QBBAdd'lUtJ!ifeDisk-(P&H 
ordered with cartridge) 



id if 



Ol(V4,*l-6} 
2(V5, -1-3) 
3 (V5, *4) 



Tlie TVansaclor Disk $8,95' US, $9-95* Cdn each- (I54I/4040/2031/MSD format) 

Numbers shown are Disk numtes-Voiumeand Issue ''Oflhe corresponding magazineare shown in brackets 
O 4 (V5, '5) O 7 (V6, "2) D 10 (V6, '5) D 13 (V7. -2} O 16 (V7, '5) O 19 (V8. *2) 
O 5 (V5, '6) D 8 (V6. '^S) Oil (V6. '6) O 14 (V7, "3) O 17 (V7. '6) O 20 (V8, *3) 
6(V6,-1) D9(V6,-4) Ol2(V7/l) Ol5(V7.*4) OlS(V8,'I) D21(V8,'4) 



D 22 (V8, '5) 



1 



Add flat $2.00 shipping & handling for any number of items within this box p 



Transactor Back Issues and Microfiche: $4.50 US, $4.50*Cdn. (MF=: Microfiche) 
SPECIAL: First Back Issue $4.50, additional Back Issues $2.00 each! (Expires Febl/88) 

O VS, '5 O MF O V6, "1 D MF D V7, '3 MF D VS. '2 D MF 

D V5. '6 D MP O V6, --S D MF D V7. *4 O MF D V8, ■-S D MF 

D V6, *i n MF O V6, *(> D MF D V7. *5 O MF D V8, '4 D MF 

O V6, '2 D MF O V7. *! D MF D V7. •'6 O MF D V8, '5 D MF 

O V6, ''3 D MF O V7, -2 D MF O VS. *1 O MF 



DV4,'l Dmf 
DV4,*2 0MF 
DV4,'^MFonly 
DV4.''4MFonly 
DV4,''5MFonlv 



D V4, '6 MF only 
DV5, •! OMF 
aV5,'2Mronly 
D V5,"'3MFonly 
OV5, "IMF only 



Please allow 6-8 weeks for delivery in U.S,, 4-6 weeks in Canada 



NOTE: Prepayment required. Purchase orders will be accepted ONLY if accompanied by payment. 

^_ Amount 



D Visa D MasterCard □ Cheque/MO. enclosed Cheque*. 



Acct. * 



Expires 



/. 



Dated. 



Signature 



/ 



./. 



I use the following DVIC 20 DC 64 OC128 

Commodore equipnient: OSFDIOQI Dl 540/41 01581 

I use my equipment in the following environment: 
DHobby OBusiness DTechnicat 



OAmiga 
D4040 



08128 
□8050 



08032/96 
D8250 



□ 16/ +4 

□ 1571 



□Public Sctiool OHigh School QCollege/Univ. OCBM Dealer 



□ Please send advertising information for Transactor 



□ Please send dealer information for Transactor. 
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ri^fXrXXC- Lall^r-L j^^-Lb 



^1f h j-k#kh*^ r^^4 -lbb^j-ib.-Ij^ 



,^^^ ^.^^ ^^ ^i_u._l -tt . - _ T . . 



BUSINESS REPLY MAIL 

FtRST CLASS PERMIT NO 390 BUFFALO, NY 



POSTAGE WILL BE PAID BV ADDRESSEE 



Tltinsaclor 

RO. Box 338 Station 'C 
Buffalo, NY 14209-9990 



NO POSTAGE 
NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 




Business Reply Mail 

No Postage Stomp Necessary 
If mailed in Canada 



Postage will be paid by: 



l...ll.lMl.,l,III.Ml.tMl,lMl.l..l,t,.ll.„l...ll 



501 Alden Road 
RO. Box 3250 
Morkham Industrial Park 
Markham, Ontario 
L3R 9Z9 
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Itansoctor For The Amiga 

Keeping you in touch with the Amiga progrannming community 

Transactor for the Amiga brings Transaclor's traditional high-level technical focus to the Amiga. This Is 
the place to turn for the kind of information programmers and serious hackers need to know. Our own 
editorial staff, Nick Sullivan and Chris Zamara, are already known for their Amiga programs and 
articles, but we're not stopping there - before the Transactor name went on an Amiga-related 
publication we had to be milly ready. So we asked Ihe top Amiga programmers, writers and other 
experts to write lor us, and they did. What we now have is a magazine that will be a clearing house for 
new ideap, programs and techniques from the best Amigans in the world. And if you still don'l believe 
we're really ready, just take a look at this sample of articles from our soon-lo-be-released first Issuo: 

• Andy FJnkel, one ol the authors of the Amiga's system software, tells you 
about "CAOS" - Amiga's original Disk Operating System. 

• Rob Peck, author ol the Amiga's ROM Kernel manuals, shows how to use 
the Exec Library's List-handling capabilities for more flexible programs, 

• Perry Klvolowitz, president of ASDG Inc. and author of "Face", the floppy 
disk accelerator, looks at ideal programming ei iviionments, 

• John Toebes, director of the Software Distillery and author of Verelon 4,0 of 
the Lattice C compiler, shows the right way to port a program to the Amiga. 

• (Vlatl Dillon, author of well-known freely redistributable programs like his 
DOS Shell, explains DOS packets, with practical example programs. 

• Jim Butterdeld, the original Commodore programming guru, dissects an 
assembly-language program and explains it piece by piece. 

PLUS: 

Write your own "Cycle Warrior" to fight it out in Rico IVlariani's arena of battling programsl 

The inside lacts about the Draco language compiler from its author, Chris Gray 

Detailed specifications of the new "Arp, library" from its co-authors, Scott Ballantyne 

Protecting yourself from THE VIRUS 

An all-a880mbler Update command for (he CLI by Bob Rakosky, authoi of saf-T-net 

Part 1 of a series on the theory and practice of debugging, by iVIetascope expert Vic Wagner 

A detailed look at the structure of font files and how (hey work, by Transactor regular Betty Clay 

Reviews of the new Lattice C compiler V4.0, Power Windows 2,0, and the new Amiga 500 RAM 

expansion box from Byte-By-Byte. 

Regular columns by Larry Phillips, Steve Ahlslrom and Don Curtis. 

If you're an Amiga programmer who wants to really take hold of the machine and make it do 
backflips, you've just found your magazine. And if you subscribe now, you'll still be in time for our 
first edition. We're going to have a hard time holding onto back issues of this one, so don't miss 
out. Turn to the subscription form at the centre of this magazine and fill it out todayl 

Itonsoctor For The Amiga. . . Flattening the learning curve. 
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Type in u lot ol' Transactor proj-rams? ■ ' 
Dots Ihf above time and appearance (tf the skv look familiar? 
Willi I he Transactor Disk, any program is just a LOAD away! 

I 

Only $8.95 US, $9.95 Ccln. Per Issue 
6 Disk Subscription (one year) 

Just $45.00 US, $55.00 Cdn. 
(see order form at center fold) 
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Transactor Amiga Disk #1, $12.95 US, $14.95 Cdn 

All the Anii}>ii [iro^rains frnni the inii};a/iiK% w illi niiiipklc 
docniiuntHlion on disk, plus aur pick of Ihe pnhlic rkmiuln! 



